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IBM EXTENSIONS 



This manual describes IBM OS/VS COBOL; it gives the rules for 
writing COBOL source programs that are to be compiled by the 
OS/VS COBOL compiler. It is meant to be used as a reference 
manual in writing OS/VS COBOL programs, and in conjunction with 
■■..>4^hig'" TByrTTS7^VS COBOL Compiler and Library Programmer's Guide , 
SC28-6483 and the IBM OS/VS COBOL Language Reference Summary , 
GX26-3720 

COBOL CCOmmon Business Oriented Language) is a programming 
language similar to English that is used for commercial data 
processing. It is developed by the Conference On DAta SYstems 
Languages CCODASYL). The standard of the language in the USA* 
approved by the American National Standards Institute (ANSI), is 
American National Standard COBOL, X3. 23-1974. 

The OS/VS COBOL Compiler and Library, Release 2, are designed 
according to the specifications of the following industry 
standards, as understood and interpreted by IBM as of April 
1976: 

• The highest level of American National Standard COBOL, 
X3. 23-1974 (excepting the Report Writer module). American 
National Standard COBOL, X3. 23-1974, is compatible with and 
identical to International Organization for 
Standardization/Draft INternat i onal Standard (ISO/DIS) 
i989-C0B0L. (In this manual a reference to the 1974 
Standard or to 1974 Standard COBOL is a reference to these 
two standards.) 

Portions of this manual are copied from American National 
Standard COBOL , X3. 23-1974. This material is reproduced 
with permission from American National Standard Programming 
Language COBOL , X3. 23-1974, copyright 1974 by the American 
National Standards Institute, copies of which may be 
purchased from the American National Standards Institute at 
1430 Broadway, New York, New York, 10018. 

• The highest level of American National Standard COBOL, 
X3. 23-1968 (including the Report Writer module). American 
National Standard (ANS) COBOL, X3. 23-1968, is identical to 
ISO 1989-1972. (In this manual a reference to the 1968 
Standard or to 1968 Standard COBOL is a reference to these 
two standards.) 



A significant number of IBM extensions are also included. The 
most important are: 

Report Writer 
PASSWORD Clause 
TRANSFORM Statement 
ENTRY Statement 

Three types of extensions are included^ 

• Those that represent processing capabilities not included in 
the 1974 standard. 

• Those that represent language from American National 
Standard COBOL, X3. 23-1968, that is not included in the 1974 
standard. 

• Those that ease the 1974 standard rules for greater ease in 
programming. 
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MANUAL ORGANIZATION 



For the convenience of users who wish to refer to the 1974 
standard, all extensions in this manual are flagged. 



The manual is organized for reference purposes as follows. 

The General Description section describes OS/VS COBOL language 
in general terms, and also describes non-language features 
available with the compiler. 

The main sections of the book give the specific rules for 
writing OS/VS COBOL source programs. There is a separate part 
for Language Considerations, for each of the COBOL Divisions, 
and for Special Features. For easier reference. System 
Dependencies are grouped together in a separate chapter. 

Appendixes provide supplemental information^ 

• Appendix A describes briefly the language elements available 
through IBM OS Full American National Standard COBOL that 
are continued in OS/VS COBOL for compatibility purposes. 

Appendix B gives ASCII file processing considerations. 

Appendix C describes System/370 unit record processing. 

Appendix D describes intermediate results. 

Appendix E contains several direct access storage file 
processing programs. 

Appendix F is a list of COBOL reserved words. 

Appendix G gives both the EBCDIC and ASCII collating 

sequences. / 



Appendix H is a list of statements flagged when the MIGR 
compiler option is specified. 

The Glossary gives definitions of COBOL terms. 



RELATED PUBLICATIONS 



A knowledge of basic data processing techniques is required for 
the understanding of this manual. Such information can be found 
in the following publications: 

• Introduction to IBM Data Processing Systems , GC20-1684 

• Introduction to IBM Direct Access Storage Devices and 
Organization Methods , GC20-1649 

The reader should also have a general knowledge of COBOL before 
using this manual. Useful background information can be found 
in the following publications* 

• American National Standard COBOL Coding ' 

Card and Tape Applications Text , SR29-0283 

Coding Techniques and Disk Applications Text , SR29-0284 

Illustrations , SR29-0285 

Student Reference Guide , SR29-0286 

• IBM OS COBOL Interactive Debug and (TSO) COBOL Prompter, 
General Information, GC28-645<». 
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If information in these background publications conflicts with 
information given in this manuals the information in this manual 
must be considered correct in the writing of OS/VS COBOL 
programs. Any violation of the rules defined \n this manual for 
using either the Operating System or the OS/VS COBOL compiler is 
considered an error. 

nformation on the 3886 OCR can be found in the following 
ubl i cati ons^ 

OS/VS Program Planning Guide for IBM 3886 Optical Character 
Reader Model 1 , GC21-5069 

IBM 3886 Optical Character Reader General Information 
Manual , GA21-9146 

IBM 3886 Optical Character Reader Input Document Design 
Guide and Specifications , 6A21-9148 

arameters for COBOL DD statements are given in the publication* 

IBM Svstem/360 Planning Guide for IBM 3505 Card Reader and 
IBM 3525 Card Punch on Sv5tem/37Q > GC21-5027 

A general knowledge of the IBM Operating System is desirable^ 
but not required. The following publication gives such 
information 5 

• IBM Sv5tem/370 System Summary , GA22-7001 
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The following extract from Government Printing Office Form 
Number 1965-0795689 is presented for the information and 
guidance of the user^ 

Any organization interested in reproducing the COBOL 
report and specifications in whole or in part, using ideas 
taken from this report as the basis for an instruction 
manual or for any other purpose is free to do so. 
However, all such organizations are requested to reproduce 
this section as part of the introduction to the document. 
Those using a short passage, as in a book review, are 
requested to mention * COBOL' in acknowledgment of the 
source, but need not quote this entire section. 

COBOL is an industry language and is not the property of 
any company or group of companies, or of any organization 
or group of organizations. 

No warranty, expressed or implied, is made by any 
contributor or by the COBOL Committee as to the accuracy 
and functioning of the programming system and language. 
Moreover, no responsibility is assumed by any contributor, 
or by the committee, in connection therewith. 

Procedures have been established for the maintenance of 
COBOL. Inquiries concerning the procedures for proposing 
changes should be directed to the Executive Committee of 
the Conference on Data Systems Languages. 

The authors and copyright holders of the copyrighted 
material used herein 

FLOW-MATIC (Trademark of Sperry Rand Corporation), 
Programming for the UNIVAC (R) I and II, Data 
Automation Systems copyrighted 1958, 1959, by 
Sperry Rand Corporation; IBM Commercial Translator, 
Form No. F28-8013, copyrighted 1959 by IBM; FACT, DSI 
27A5260-2760, copyrighted 1960 by Minneapolis-Honeywell 

have specifically authorized the use of this material in 
whole or in part, in the COBOL specifications. Such 
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authorization extends to the reproduction and use of COBOL 
specifications in programming manuals or similar 
publications. 
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SUMMARY OF AMENDMENTS 



RELEASE 2.4> AUGUST 1983 



NEM PROGRAMMING FEATURE 



SERVICE CHANGES 



The MIGR compiler option flags major COBOL language elements 
that are no longer supported or are supported differently by the 
VS COBOL II compiler. Program Number 5668-958. Appendix H, 
added to this book, lists the statements that are flagged uihen 
you specify MIGR. 



A variety of corrections and clarifications have been made 
throughout the text, along with a number of changes made to 
reflect APAR fixes. 



DECEMBER, 1981 



SERVICE CHANGES 



This documentation for the VS COBOL for OS/VS product is revised 
as indicated. These are documentation changes only, and do not 
reflect changes to the program product itself. 



Topic 


Documentation Change 


Page 


BLOCK CONTAINS Clause 


Description modified to include 
clarification of uihen the clause can or 
should be omitted 


56 


BLOCK or RECORD CONTAINS 
clauses 


Cannot be specified with SAME AREA or 
SAME RECORD AREA clause 


351 


CALL statement 


USING option 


357 


COPY statement 


Clarification of REPLACING option 


292 


DIVIDE statement 


Clarification of identifiers following 
the key words GIVING and REMAINDER 


166 


EXIT statement 


Programming Notes added 


203 


IF Statement 


Programming Note deleted 


119 


INSPECT statement 


For signed numeric items in an INSPECT 
statement, if the sign is a separate 
character, the byte containing the sign 
is not examined 


173 


LINAGE clause 


Not allowed with the REPORT clause 


60 


MERGE statement 


Maximum number of files that can be 
merged i s noted 


236 


NOTE statement 


Description added 


404 



Summary of Amendments vii 



Topic 


Documentation Change 


Page 


OCCURS clause 


Maximum table length specified 


215 


OK statement 


ON statement compilei — generated counter 
resets when it reaches 16,777,215 


400 


PICTURE Clause 


Maximum symbols in character-string 
noted 


72 


READ statement 


IBM Extension allows use of records of 
various sizes with READ INTO 


146 


ROUNDED option 


IBM Extension to the ROUNDED option 

Programming note about fractional 
exponents 


161, 
168 


Subscripting and Indexing 


Restrictions on subscripting and 
indexing expanded 


213 


SORT INPUT PROCEDURE option 


Additional restriction specified 


240 


SORT OUTPUT PROCEDURE option 


Additional restriction specified 


241 


TERMINATE statement 


Warning about control variables in 
TERMINATE statement 


278 


TRANSFORM statement 


Identifier-3 in a TRANSFORM statement 
can be an external decimal 


189 


UNSTRING statement 


COUNT IN option clarified 

Programming note covers when the sending 
field is also the receiving field 


183, 
189 


USAGE IS INDEX clause 


IBM Extension allows use of SYNCHRONIZED 
when USAGE IS INDEX 


397 


WRITE statement 


IBM Extension to mnemonic-name option 


140 






K.J 



The format summary in Appendix F has been deleted. 

Appendix F now contains a list of COBOL reserved words. 

Language format reference information is now included in a 
reference summary, IBM VS COBOL for OS/VS Reference 
Summary — Format, Status Key Values, and Reserved Words , 
GX26-3720. 

Other minor editorial changes have also been made throughout 
the manual. 
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LANGUAGE LEVEL 



COBOL (COmmon Business Oriented Language) is a programming 
language that resembles English. As its name implies^ COBOL is 
especially efficient in the processing of business problems. 
Such problems usually involve little algebraic or logical 
processing. Instead^ they usually manipulate large files of 
data in a relatively simple way. That is» COBOL emphasizes the 
description and handling of data items and of input/output 
records. 

COBOL language development and definition is the function of 
CODASYL (the Conference On DAta SYstems Languages). The 
standard of the language in the USA is American National 
Standard COBOL^ X3.23-1974* as approved by the American National 
Standards Institute (ANSI). References in this manual to the 
1974 standard are references to this standard. (Similarly* 
references to the 1968 standard are references to the former 
standard in the USA — American National Standard COBOL » 
X3. 23-1968.) 

Both standards have their international counterparts* from the 
International Organization for Standardization (ISO). For the 
1974 standard, this is ISO 19S9-1978. For the 1968 standard, 
this is ISO 1989-1972. 

The OS/VS COBOL Compiler and Library is an IBM Program Product 
that accepts and compiles COBOL programs written in support of 
the 1974 standard, the 1968 standard, plus a number of IBM 
extensions. The following sections describe the language level 
implemented and language-independent compiler features. 



OS/VS COBOL is designed according to the specifications of the 
indicated levels of the following 1974 standard modules: 

• NUCLEUS (2 NUC 1,2) — which provides improved internal 
processing capabilities. Extended data manipulation 
statements, enhanced arithmetic capabilities, usei — specified 
collating sequences, and eased data grouping rules are all 
provi ded. 

• TABLE HANDLING (2 TBL 1,2) — which eases rules on 
subscripting and allows mixed indexes and literal 
subscri pts. 

• SEQUENTIAL 1-0(2 SEQ 1,2) — which implements VSAM ESDS 
processing, allows sequential files to be extended, and 
provides added page placement capabilities for files 
destined for printed output. 

• RELATIVE I-O (2 REL 0,2) — which allows the user to specify 
relative record file organization — the records in such a 
file are stored and retrieved in the order of their relative 
record numbers. Storage and retrieval can be sequential or 
random. Relative 1-0 is implemented through the VSAM RRDS 
capabi li ti es. 

• INDEXED 1-0 (2 INX 0,2) — which gives added indexed file 
processing capabilities through VSAM KSDS processing. 
Records are stored according to an embedded prime record 
key; they can be retrieved through the prime record key or 
through embedded alternate record keys. Storage and 
retrieval can be sequential or random. 

• SORT-MERGE (2 SRT 0,2) — which gives the capability of 
ordering the records in one or more files (sorting) and of 
combining two or more identically ordered files (merging). 
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The sort or merge can be upon either the EBCDIC or ASCII 
collating sequence^ or upon a usei — specified collating 
sequence. 

• SEGMENTATION (2 SEG 0,2)- — which allows the user to specify 
object program overlay requirements. 

• LIBRARY (2 LIB 0,2)— which allows the user to replace all 
occurrences of a given text with alternate text during 
compilation. Multiple COBOL source libraries can be 
specified. 

• DEBUG (2 DEB 0,2) — which provides the capability of 
monitoring object program execution through Declarative 
procedures, special debugging lines, and a special register, 
DEBUG-ITEM, which gives specific information about execution 
status. 

• INTER-PROGRAM COMMUNICATION (2 IPC 0,2) — which allows a 
COBOL program to communicate with one or more other programs 
through transfers of control and access to common data 
items. 

• COMMUNICATION (2 COM 0,2) — which provides the ability to 
communicate through a Message Control Program (MCP) with 
local or remote communications devices, and to access, 
process, and create partial and complete messages. 

OS/VS COBOL also incorporates all language elements from IBM OS 
Full American National Standard COBOL, with two exceptions^ the 
MESSAGE COUNT clause replaces the QUEUE DEPTH clause, and the 
ACCEPT MESSAGE COUNT statement replaces the IF MESSAGE 
statement. IBM OS Full American National Standard COBOL is 
designed in support of the highest level of the 1968 standard 
plus IBM extensions. All such language that differs from the 
1974 Standard can be considered an extension to it. Major 
extensions are- 

• Report Writer — which allows the user to produce reports by 
specifying what the physical appearance of the report should 
be; the Report Writer then produces the necessary procedures 
to generate the report. The IBM Report Writer is compatible 
with the 1968 standard. 

• PASSWORD Clause — which provides file security for VSAM 
files. 

• TRANSFORM Statement — which provides easy translation 
capabilities from one collating sequence to another. 

• ENTRY Statement — which gives the user the ability to specify 
alternate entry points in a called prograim. 

• WHEN-COMPILED Special Registei which provides a means of 

associating a compilation listing with both the object 
program and the output produced at execution. 

The main text of this manual documents 1974 standard COBOL 
together with those IBM extensions especially useful with it. 
Some such IBM extensions are designed to complement the 1974 
Standard language; others — such as the complete Report Writer 

chaptei are continued from IBM OS Full American National 

Standard COBOL. 

Appendix A documents these language elements continued for 
compatibility purposes from IBM OS Full American National 
Standard COBOL (both 1968 standard language and IBM extensions). 
Other appendixes give useful supplemental information. The 
Glossary gives definitions of COBOL terms. 
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COMPILER FEATURES 



The following language-independent features are made available 
with OS/VS COBOL: 

Virtual Storage Access Method (VSAM) Support — which provides 
fast storage and retrieval of records^ password protection, 
centralized and simplified data and space management, advanced 
error recovery facilities, plus system and user catalogs. 

COBOL supports sequential files (through VSAM ESDS 
capabilities), indexed files with alternate indexes (through 
VSAM KSDS capabilities), and relative files (through VSAM RRDS 
capabi li ties) . 

Federal Information Processing Standard Flagqer (FTPS) — wh i ch 
issues messages identifying nonstandard elements in a COBOL 
source program. The FIPS Flagger makes it possible to ensure 
that COBOL clauses and statements in an OS/VS COBOL source 
program conform to either the 1975 or 1972 Federal Information 
Processing Standard. 

Lister Option — provides specially formatted listings with 
embedded cross-references for increased intelligibility and ease 
of use. Reformatted source deck is available as an option. 

Verb Profiles — facilitates identifying and locating verbs in the 
COBOL source program. Options provide verb summary or verb 
cross-reference listing which includes verb summary. 

Execution Time Statistics — maintains a count of the number of 
times each verb in the COBOL source program is executed during 
an individual program execution. 

Svstem/370 Device Support — any valid OS/VS device can be used 
with a OS/VS COBOL program. In most cases, support is 
transparent to the OS/VS COBOL program. There are special 
considerations for the following devices^ 

• 3886 OCR (Optical Character Reader) — this device reads 
multiline alphanumeric or numeric machine-printed documents 
or numeric hand-printed documents, with stacker selection. 
OS/VS COBOL support is through an object-time library 
subrout i ne. 

• 3330, 33^0 Disk Facilities — these devices are high-speed 
large-capacity disks, with the rotational positional sensing 
(RPS) feature. Use of the fixed block standard option, 
which can be specified at object time, results in much 
improved performance. 

• Multifunction Card Devices — OS/VS COBOL supports the 
combined function processing available through these 
devices. Combined functions available are- read/punch, 
read/print, punch/print, and read/punch/print. 

Language-independent features continued from OS Full American 
Nation Standard COBOL are: 

Advanced Symbolic Debugging — provides faster and easier 
debugging for the COBOL programmer. At abnormal termination a 
formatted dump, using COBOL source data-names, is produced. 
Execution-time dynamic dumps at usei — specified points in the 
Procedure Division can also be obtained. When the symbolic 
debugging feature is requested, optimized object code is 
automatically provided. 

Optimized Object Code — can he requested, resulting in 
considerably smaller object programs than are produced without 
optimization. For COBOL programs that are not I/O bound, 
execution time is reduced. 

COBOL L i brary Management Faci 1 i ty — allows installations running 
with multiple COBOL regions/partitions to save considerable main 
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storage by sharing some or all of the COBOL library subroutine 

modules. -r->^ 

Syntax-checking Compilation ^ — saves machine time and money Mhile ''X,^^' 

debugging source syntax errors. Ulhen unconditional syntax 

checking is requested^ the source program is scanned for syntax 

errors and such error messages are generated^ but no object code 

is produced. When conditional syntax checking is requested^ a 

full compilation is produced if no messages or only W-level or 

C-level messages are generated; if one or more E-level or 

D-ievel messages are generated/ no object code is produced. 

Selected test cases have shown that uihen object code i s not 

generated/ compilation time is reduced. 

Optional alphabetically ordered cross-reference 
1 i sti nqs — significant performance improvement has been made to 
the current cross-reference option which preserves source 
statement order. 

A flow trace option — which prints a formatted trace of the last 
procedures executed before an abnormal termination of execution. 
The number of procedures to be traced is specified by the user. 

A statement number option — which provides the user with the 
number of the COBOL statement, and of the verb within the 
statement » being executed if an abnormal termination of 
execution occurs. 

Expansion of the functions of the CLIST and DMAP compiler 
opti ons — in addition to the condensed listing (CLIST) and the 
glossary (DMAP), global tables, literal pools, and register 
assignments are included. 

Batch Compilation — more than one program or subprogram can be 

compiled with a single invocation of the compiler, resulting in 

a reduction in compilation time. , 

Separately located Installation Defaults — installation default V>^ 
options are separately located from other coding to improve 
maintainability and serviceability. 



FEATURES DEPENDENT ON TSO 



With Time Sharing Option (TSO), the terminal user may choose 
options to determine the characteristics of compiler output to 
the terminal. The user may direct to the terminal* 

• Compilation progress and diagnostic messages 

• The compiler's entire data listing set 

The user can suppress either category or may suppress all output 
to the terminal. 

In addition, if the user has recorded line numbers in the input 
data set, the compiler mav be instructed to substitute these 
numbers for internal statement numbers in any diagnostic 
messages printed on the terminal. Also, when diagnostic messages 
are printed on the terminal, a message stating the total number 
of statements in error can be included at the request of the 
user. 

In addition to the program development features included within 
the OS/VS COBOL Compiler and Library itself, there are two 
related Program Products, available under TSO, that greatly 
facilitate program development. Both reduce program turnaround 
time, and increase programmer productivity. These Program 
Products are- the TSO COBOL Prompter and COBOL Interactive 
Debug. 

Both are described in IBM OS COBOL Interactive Debug and (TSO) 
COBOL Prompter, General Information . 
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FORMAT NOTATION 



The notation used to illustrate COBOL formats is shown in the 
following box. Each numbered item in the sample format is keyed 
to an explanation in Figure 1. Further explanations of the 
notation follow the figure. 



Format 



1 identifier — 1 | 

STATEMENT < > 

I literal-l J 



identi f i er— 2 
li teral-2 
5 

TO identi fier-m [ ROUNDED ] C identi fi er-n [ ROUNDED ] 3 
7 8 



[ON SIZE ERROR imperative-statement] 







No. 


Symbol 


Meaning 


Example 


1 


Bracket in a box 


A portion of 
syntax that» 
as &x\ IBM 
extension, is 
opti onal . 


[ ... 

... 3 


Z 


Braces 


Requi red 
choice among 
several items. 


identi f i ei — n 
< > 
1 i teral-n 


3 


Brackets 


Opti onal 
i terns. 




i denti f i ei — n 
1 i teral-n 




4 


UNDERLINED 
UPPERCASE LETTERS 


Key words. 


ROUNDED 


5 


Hyphen and digit 
Hyphen and letter 


Text 
reference. 


identi f i e« — 1 
i denti f i ei — m 


6 


Ellipsis 


Repeatable 
i terns. 




7 


UPPERCASE LETTERS 


Opti onal 
reserved 
words. 


ON 


8 


lowercase letters 


Usei — def i ned 
words. 


imperat i ve 



Figure 1. Format Notation 
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Further Explanations of the ''Meaning*' Column: 



... 



2. Required choice to be made among several items is indicated 
by a set of braces enclosing vertically stacked 
alternati ves. 

One^ and only one> of the enclosed items is required. 

[xl 
< y > 

3. Optional items are enclosed in brackets. 

An item within brackets may be included or omitted^ 
depending on the requirements of the program. Uhen two or 
more items are stacked within brackets, one or none of them 
may be specified. 



Cx3 



All punctuation and other special characters appearing in 
formats (except braces* brackets, and ellipses) represent 
the actual occurrence of those characters. Where such 
punctuation characters are shown, they are required by the 
format; if they are omitted, there will be an error in the 



.r'>. 



optional IBM extension portions of syntax are indicated by a 

pair of brackets, each enclosed in a box- ^«- 



<t. Key words are shown in UNDERLINED UPPERCASE LETTERS . Key 

words are reserved MOrds that are required unless the /^ > 

portion of the format containing them is itself optional. ( ^j 
If any key word is missing or misspelled, it is considered K.J'^ 
an error in the program. 

5. Text reference is designated by a hyphen and a digit C-1) or 
a hyphen and a letter (-m) following a usei — defined word. 
This suffix is only for text reference; it does not change 
the syntactical definition of the word. 

6. Repeatable items are indicated by an ellipsis (..,). Such 
an item can be coded once or any number of times. An 
ellipsis can follow a single word, or a group of lowercase 
or reserved words surrounded by brackets and/or braces. 
Portions of a format that are grouped within brackets or 
braces are presented as a unit, and, when repetition is 
specified, the entire unit must be repeated. 

7. Optional reserved MOrds are shown in UPPERCASE LETTERS but 
are not underlined. They are reserved words that are 
included only for readability and may be omitted without 
changing the logic of the program. If an optional word is 
included, it must be spelled correctly, or it is considered 
an error in the program. 

8. User-defined MOrds are printed in lowercase letters and 
represent information you supply. 

Other notations have the following meanings: 

• Arithmetic and logical operator characters (+, -, ^> /, >, 
<, and =), in formats, are required, even though they are 
not underlined. 



^w,. 



>' 
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program. Additional punctuation may be specified* according 
to the punctuation rules contained in "Separators" on page 
18. 

The required clauses and optional clauses (when written) 
must be written in the sequence shown in the format » unless 
the associated rules explicitly state otherwise. 



IBM EXTENSIONS 



IBM extensions within formats and figures are shown in boxes 
For example? 



Format 

[STATEMENT IS data-name-2 




]. 


Cdata-name-3] 





Extensions within text are documented in separate paragraphs or 
sections. For example? 



IBM Extension 



IBM extensions in text are shown this way. 
' End of IBM Extension 






If an entire section of syntax is an optional IBM extension, it 
is indicated by enclosing each bracket in a box at the start and 
the end of the extension. (See number 1 in Figure 1.) 

Occasionally, an IBM extension directly contradicts a rule or 

restriction that immediately precedes it. The standard is 

presented first, because s o m e p r o g r a mm erjs , u[ j^je, .„Q£^ IBM 

extensions. The extensiori i s then presented for those wRo "dO'"^*'' 



use them. 



%J 
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PART 1. LANGUAGE CONSIDERATIONS 



• COBOL PROGRAM STRUCTURE 

• STRUCTURE OF THE LANGUAGE 

• STANDARD COBOL FORMAT 

• METHODS OF DATA REFERENCE 
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COBOL PROGRAH STRUCTURE 






Every COBOL source program is divided into four divisions. Each 
division must be placed in its proper sequence* and each must 
begin with a division header. 



In subsequent sections of this publication* the rules for 
writing COBOL source programs and methods of data reference &re 
given. 



THE COBOL DIVISIONS 



The four divisions of a COBOL source program, and their 
functions in solving a data processing problem* are'' 

Identification Division 

The Identification Division names the program and* optionally* 
documents the date the program was written* the compilation 
date* and other pertinent information. 




Environment Division 



Data Division 




Procedure Division 



The Envi ronment Di vi si on describes the computer(s) to be used 
and specifies the machine equipment and equipment features used 
by the program. This description includes a description of the 
relationship of files of data with actual input/output devices. 



The Data Division defines the nature and characteristics of all 
data the program is to process. This includes both the data 
used in input/output operations and the data developed for 
internal processing. 



The Procedure Division consists of executable statements that 
process the data in the manner the programmer defines. Unless 
the programmer defines some other order* the statements are 
executed in the order in which they are written. 



X^ 
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CLAUSES AND STATEHENTS 



Every COBOL source program fs written in clauses and statements* 
each of which describes some specific aspect of the data 
processing problem solution* 

• Clauses — written in the Environment and Data 
Divisions — specify attributes of entries. A series of 
clauses^ ending with a period* is defined as an entry . 

• Statements — written in the Procedure Division — specify an 
action to be taken by the object program. A series of 
statements* ending with a period* is defined as a sentence . 

Each clause or statement in the program can be subdivided into 
smaller syntactical units called phrases or options. A phrase 
is an ordered set of one or more consecutive COBOL 
charactei — strings that form a portion of a COBOL clause or 
statement. An opti on is a phrase for which the programmer makes 
a choice of alternative required or optional wordings* depending 
on the meaning this phrase is to have. 

Clauses* entries* statements* and sentences can be combined into 
paragraphs or sections. Paragraphs and secti ons each define 
some larger part of the data processing problem solution. 
Specific rules for the formation of each element are given in 
the documentation for each Division of the COBOL program. 



CLAUSE AND STATEMENT SPECIFICATION ORDER 



"\^ 



Uihen specified* each required or optional clause or 
statement — even those treated as documentation—must be written 
in the sequence shown in its format* unless the associated rules 
explicitly state otherwise. 
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STRUCTURE OF THE LANGUAGE 



.^ 



In C0BOL> the indivisible unit of data is the character. 
Fifty-one EBCDIC characters form the COBOL character seti the 26 
letters of the English alphabets the 10 Arabic numerals* and 15 
special characters. 

Individual COBOL characters are put together to form 
charactei — strings and separators. 

A charactei — string is a character or sequence of contiguous 
characters that forms a word, a literal, a PICTURE 
charactei — string, or a comment. A character-string can be 
delimited only by a separator. 

A separator is a contiguous string of one or more punctuation 
characters. A separator can be placed next to another separator 
or next to a charactei — string. 

Except for comments and nonnumeric literals (which may use any 
character within the EBCDIC set), the 51 characters are the only 
valid characters in a COBOL program. Figure 2 shows the valid 
COBOL characters in ascending EBCDIC sequence and their usage in 
a COBOL program. 



4 "^'X 
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COBOL 

Character Meaning use 

space punctuation character 

decimal point; period editing character; punctuation character 

< less than relation character 

( left parenthesis punctuation character 

+ plus symbol arithmetic operator; sign; editing character 

$ dollar sign editing character 

^ asterisk arithmetic operator; editing character 

) right parenthesis punctuation character 

; semicolon punctuation character 

minus symbol; hyphen arithmetic operator; sign; editing character 

/ stroke; slash arithmetic operator; editing character; 

line control character 

f comma punctuation character; editing character 

> greater than relation character 

= equal sign relation character; punctuation character 

" quotation mark punctuation character 

A-Z alphabet alphabetic character 

0-9 Arabic numerals numeric character 

Notes: 

1. All COBOL characters are considered to be alphanumeric characters. 

2. For the quotation mark as previously implemented^ see Appendix A. 
Figure 2. COBOL Characters and Their Meanings 



CHARACTER-STRINGS 



COBOL UORDS 



COBOL charactei — strings form Mords> literal5> PICTURE 
charactei — strings^ and comments. These are described in the 
following paragraphs. 



A COBOL word can be a usei — defined word, a system-name* or a 
reserved word. A COBOL word can belong to only one of these 
classes. ^-„^ 

The maximum length of a COBOL word p% 30 characters. 

y 
y 
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User-Defined Uords 



A usei — defined word is a COBOL word supplied by the programmer. 
Valid characters in a user-defined word are* 

• A through Z 

• through 9 

• - (hyphen) 

The hyphen may not appear as the first or last character in a 
usei — defined word. 

A list of usei — defined word sets» together with rules for their 
formation* is given in Figure 3. 

The function of each user-defined word in any specific clause or 
statement is included in the prose description for each clause 
or statement. 



User-Defined Word Sets 

alphabet-name cd-name 

condi tion-name 

data-name 

record-name file-name 

index-name 

mnemonic-name report-name 

routine-name 

1 i brary-name 
program-name 
text-name 



paragraph-name 
section-name 



level-numbers-* 01-49» 66 
priori ty-numbers-* 00-99 



Rules For Formation 

Must contain at least one alphabetic 
character. Within each set the name 
must be unique* either because no other 
word is made up of an identical 
charactei — string* or because it can be 
made unique through qualification. (See 
the section on Methods of Data Reference.) 

Same rules of formation as above. However* 
the system uses the first 8 characters 
as the identifying name* these first 
8 characters* therefore* should be 
unique among library-names* 
program-names* and text-names. 

Need not contain an alphabetic character. 
Other rules as in first paragraph above. 






77, S8 
Figure 3. User-Defined Word Sets and Rules for Formation 



Must be a 1- or 2-digit integer. 
Need not be unique. 



System- Names 



A svstem-name is an IBM-defined name which is used to 
communicate with the system. There are four types of 
system-names* 

• Computer-Names 

• Language-Names 

• Function-Names 

• Assignment-Names 

The function of each system-name is described with the format in 
which it appears* each is defined in the Glossary. 



( 



J 
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Reserved uords 



A reserved Mord is a COBOL Mord Mith fixed meaningCs) in a COBOL 
source program. A reserved Nord must not be specified as a 
usei — defined word or as a system-name. Reserved words can be 
used only as specified in the formats for a COBOL source 
program. 

There are six types of reserved words' 

• Key words 

• Optional words 

• Connectives 

• Special registers 

• Special-Character words 

• Figurative-Constants 

Each type is described in the following paragraphs. 

KEY UORDS: Ulords that are required within a given clause> entry, 
or statement. There are three types of key words: 

• Verbs such as ADD, READ, ENTER 

• Required words which appear in clause, entry, or statement 
formats, such as the word USING in the MERGE statement 

• Ulords with a specific functional meaning, such as NEGATIVE 
or SECTION 

OPTIONAL UORDS: Uords that may be, but need not be, included in 
a clause, entry, or statement. Uhen an optional word is 
omitted, the meaning of the COBOL program is unchanged. 

CONNECTIVES: There are three types of connectives: 

• Qualifier connectives (OF, IN), which associate a data-name, 
condition-name, text-name, or paragraph-name with its 
qualifier. 

• Series connectives (the comma and semicolon), which link two 
or more consecutive operands. (An operand is a data item or 
literal that is acted upon by the COBOL program.) 

• Logical connectives (AND, OR, AND NOT, OR NOT) used in 
specifying conditions. 

SPECIAL REGISTERS: Compiler-generated storage areas whose 
primary use is to store information produced through one of the 
specific COBOL features. Each such storage area has a fixed 
name, and need not be further defined within the program. These 
special registers include the following: 

• DATE, DAY, TIME (see ACCEPT statement in Procedure Division) 

• LINAGE-COUNTER (see LINAGE clause in Data Division) 

• DEBUG-ITEM (see Debugging Features chapter) 



IBM Extension 



LINE-COUNTER, PAGE-COUNTER (see Report Writer chapter) 

' ". ''' End of IBM Extension 



Other special registers are described in the chapter on System 
Dependencies. 
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SPECIAL-CHARACTER words: Arithmetic operators (+ - / X KX) or 
relation characters (<>=). Arithmetic operators are described 
in the chapter on Arithmetic Expressions. Relation characters 
are described in the relation condition description of the 
Conditional Expressions chapter. 



FIGURATIVE CONSTANTS: 

values. 



Name and refer to specific constant 



c 



Figurative constants are described 
Constants. 



in the section on Figurative 



LITERALS 



Nonnumerlc Literals 




A li teral is a character-string Mhose value is specified either 
by the ordered set of characters of which it is composed^ or by 
the specification of a figurative constant. There are two type: 
of literals: nonnumeric and numeric. 



V 



li-f \ -.it- 



^ 



A nonnumeric literal is a character-string that can contain any 
allowable character from the EBCDIC set; its maximum length is 
120 characters. 

A nonnumeric literal must be enclosed in quotation marks (" "). 
These quotation marks are excluded from the literal. 

Note! For the quotation mark as formerly implemented^ see 
Appendix A. 

Any punctuation characters included within a nonnumeric literal 
are part of the value of the literal. An embedded apostrophe 
must be represented by a pair of contiguous apostrophes (*'); 
one apostrophe is then part of the value of the literal. 

Every nonnumeric literal is of the alphanumeric category. (Data 
categories are defined in the PICTURE Clause description of the 
Data Division chapter.) 



u 



^' 







Numeric Literals 



A numeric literal is a charactei — string whose characters are 
selected from the digits through 9, a sign character (+ or -)> 
and/or the decimal point. The following rules apply: 

• One through 18 digits are allowed. 

• Only one sign character is allowed. If a sign character is 
included» it must be the leftmost character of the literal. 
If the literal is unsigned^ it is positive in value. 

• Only one decimal point is allowed. If a decimal point is 
included^ it is treated as an assumed decimal point (that 
is» as not taking up a character position in the literal). 
The decimal point may appear anywhere within the literal 
except as the rightmost character. If the literal contains 
no decimal points it is an integer. (The word integer 
appearing in a format represents a numeric literal of 
nonzero value that contains no sign and no decimal point; 
any other restrictions are included with the description of 
the format.) 



The value of a numeric literal is the algebraic quantity 
expressed by the characters i n the literal. The size of a 
numeric literal in standard data format characters is equal 
the number of digits specified by the user. 



to 



Every numeric literal is of the numeric category. (Data 
categories are defined in the PICTURE Clause description of the 
Data Division chapter.) 



\^-^ 
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FIGURATIVE CONSTANTS 






Figurative constants are reserved Mords used to name and refer 
to specific constant values. The reserved Mords for figurative 
constants and their meanings ovb'' 

ZERO> ZEROES, ZEROS 

Represents the value 0> or one or more occurrences of the 
character 0> depending on context. Can be numeric or 
nonnumeric» depending on context. 

SPACE, SPACES 

Represents one or more blanks or spaces. Must be 
nonnumeric. 

HIGH-VALUE, HIGH-VALUES 

Represents one or more occurrences of the character that 
has the highest value in the collating sequence used. For 
the EBCDIC (native) collating sequence, the character is 
hexadecimal "FF"; for other collating sequences, the actual 
character used depends on the collating sequence. Ulhen 
used in a COBOL program, HIGH-VALUE is treated as a 
nonnumeric literal. 

LOM-VALUE, LOM-VALUES 

Represents one or more occurrences of the character that 
has the lowest value in the collating sequence used. For 
the EBCDIC (native) collating sequence, the character is 
hexadecimal "00"; for other collating sequences, the actual 
character used depends on the collating sequence. Uhen 
used in a COBOL program, LOUJ-VALUE is treated as a 
nonnumeric literal. 

QUOTE, QUOTES 

Represents one or more occurrences of the quotation mark 
character and must be nonnumeric. The word QUOTE (QUOTES) 
cannot be used in place of a quotation mark to enclose a 
nonnumeric literal. 

ALL literal 

Represents one or more occurrences of the string of 
characters composing the literal and must be nonnumeric. 
The literal must be either a nonnumeric literal or a 
figurative constant other than the ALL literal. Uhen a 
figurative constant is used, the word ALL is redundant and 
is used for readability only. The figurative constant ALL 
literal must not be used with the DISPLAY, INSPECT, STRING, 
STOP, or UNSTRING statements. 

The singular and plural forms of a figurative constant are 
equivalent, and may be used interchangeably. For example, if 
DATA-NAME-1 is a 5-character data item, both following 
statements 

MOVE SPACE TO DATA-NAME-1 

MOVE SPACES TO DATA-NAME-1 

will fill DATA-NAME-1 with five spaces. 

A figurative constant may be used wherever a nonnumeric literal 
appears in a format. Uhen a numeric literal appears in a 
format, only the figurative constant ZERO (ZEROS, ZEROES) may be 
specified. 

Thp Tength bf a figurative constaniC depends")on the context of 
th)&~--prjograml The following rules a^ty-i- 

• Uihen a figurative constant is associated with a data item 
(as, for example, when it is moved to or compared with 
another item), the length of the figurative constant 
character-string is equal to the size of the associated data 
item. 
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Uhen a figurative constant is not associated with another 
data item (as> for example^ in a DISPLAY> INSPECT* STRING, 
STOP, or UNSTRING statement), the length of the 
character-string is one character. 



IBM Extension 



^^^^ 



When a figurative constant is associated with a TRANSFORM 
statement, the length of the charactei — string is one character. 



End of IBM Extension 



PICTURE CHARACTER-STRINGS 



COMMENTS 



SEPARATORS 



A PICTURE charactei — string consists of COBOL characters used as 
symbols in the PICTURE clause. The description of the PICTURE 
Clause in the Data Division chapter gives details. 



A comment is a character-string that can contain any combination 
of characters from the EBCDIC set, and which serves only as 
documentation. Comments take one of two forms** 

• A comment- en try in the Identification Division 

• A comment line (preceded by an asterisk (X) or a slash (/) 
in column 7) in &nv division of the program 

Comment-entries are described i n the chapter on the 
Identification Division. Comment lines are described in the 
chapter on Standard COBOL Format. 



A separator is a string of one or more punctuation characters. 
The punctuation characters are shown in Figure 4. 



Punctuation Character Meaning 

space 
period 
( left parenthesis 

) right parenthesis 

; semicolon 

, comma 

= equal sign 

" quotation mark 

Figure 4. Separator Characters 



The following rules for the formation of separators apply 
(brackets enclose and identify each separator discussed in the 
following list)? 

• A space t] is always a separator, except as noted below. 

Anywhere a space is used as a separator, more than one space 
may be used. 



K^^' 
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• A space separator can immediately precede all separators 
except* 

— As specified in standard format rules (see the chapter 
on Standard COBOL Format). 

— The separator closing quotation mark. (In this case» a 
preceding space is considered part of the nonnumeric 
literal and not as a separator.) (Note that at least 
one space separator must precede an opening pseudo-text 
delimiter [==]; the space is not optional.) 

• A space separator can immediately folloM any separator 
except the opening quotation mark. (In this case> a 
following space is considered part of the nonnumeric literal 
and not as a separator.) 

• The comma C>]> semicolon C>]> and period C.]> when 
immediately followed by a space> are separators. These 
separators may appear only where explicitly allowed by COBOL 
rules. (See Overall Punctuation Rules below and Format 
Notation under the General Description chapter.) 

• The left and right parentheses C( and )] are separators^ 
Parentheses must appear as balanced pairs of left and right 
parentheses> delimiting subscripts, indexes, arithmetic 
expressions, or conditions. 

• The quotation mark C"] is a separator. An opening quotation 
mark must be immediately preceded by a space or a left 
parenthesis. A closing quotation mark must be immediately 
followed by one of the following separators^ space, comma, 
semicolon, period, or right parenthesis. Except when the 
literal is continued (see Continuation of Lines in the 
Standard COBOL Format chapter), quotation marks must appear 
as balanced pairs delimiting nonnumeric literals. 

Note: For the quotation mark as previously implemented, see 
Appendix A. ,^,.^ p-^-^cA^^ 

• The pseudo-text delimiter [==] is a separator. An opening 
pseudo-text delimiter must be immediately preceded by a 
space. A closing pseudo-text delimiter must be immediately 
followed by one of the following separators- space, comma, 
semicolon, or period. Pseudo-text delimiters must appear as 
balanced pairs delimiting pseudo-text. (Further information 
is given in the description of the COPY Statement in the 
Source Program Library chapter.) 



OVERALL PUNCTUATION RULES 



Any punctuation character included in a PICTURE 
character-string, a comment character-string, or a nonnumeric 
literal is not considered to be a punctuation character but 
rather is considered to be part of the character-string or 
literal. 

Punctuation rules for each division of the COBOL source program 
follow. 



Identification Division 



Commas and semicolons can be used in the comment-entries. Each 
paragraph must end with a period followed by a space. 
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Environment Division 



Data Division 



Commas or semicolons may separate successive clauses and (7 

successive operands within clauses. The SOURCE-COMPUTER> ^ //' 

OBJECT-COMPUTER, SPECIAL-NAMES, and I-0-CONTROL paragraphs must ^ 
each end with a period followed by a space. In the FILE-CONTROL 
paragraph, each File-Control entry must end with a period 
followed by a space. 



Commas or semicolons may separate successive clauses and 
operands within clauses. File (FD), Sort/Merge file (SD), and 
Communication Description (CD) entries, and data description 
entries must each end with a period followed by a space. 



\ ' " ' ' IBM Extension 



Each report (RD) entry must end with a period followed by a 
space. 



End of IBM Extension 



Procedure Division 



Commas or semicolons may separate successive statements within a 
sentence, and successive operands within a statement. Each 
sentence and each procedure must end with a period followed by a 
space. 



'x^ 
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STANDARD COBOL FORMAT 



am 



COBOL programs must be written in standard COBOL format, as 
shown in Figure 5. The format is described in terms of an 
80-character line (card image format). Source programs are 
written in standard COBOL format, and the output listing of the 
source program is printed in the same format. 

Note: When the LISTER feature is specified, the output listing 
may appear in a space-saving 2-column format. 



COBOL Coding Form 



SYSTEM 


PUNCHING INSTRUCTIONS { PAGE OF 


PROGRAM- 


GRAPHIC 


















CARD FORM # 


PROGRAMMER \- DATE 


PUNCH 























Columns 1-6 represent the sequence number area. 

Column 7 is the continuation area. 

Columns 8-11 represent Area A. 

Columns 12-72 represent Area B. 

Columns 73-80 are used to identify the program. 

Note: Areas A and B are used for writing COBOL source programs. 

Figure 5. COBOL Coding Form and Standard COBOL Format 



Sequence Numbers 



Sequence numbers are written in the sequence number area. A 
sequence number is used to numerically identify each card image 
to be compiled by the COBOL compiler. The use of sequence 
numbers is optional. If used> a sequence number must consist of 
six digits in the sequence number area, columns 1 through 6. 

If sequence numbers are present in the source program, they must 
be in ascending order, or a diagnostic message is issued. 



IBM Extension 



However, this IBM implementation allows the user to suppress 
sequence checking at compile time. 



End of IBM Extension 



o 



Continuation Area 



The continuation &re& is used to indicate the continuation of 
words and nonnumeric literals from the previous line onto the 
current line^ to specify debugging lines, or to indicate that 
the text on this card image is to be treated as a comment. (See 
the following paragraphs on Continuation Lines and Comment 
Li nes. ) 
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Area A and Area B 



Area A occupies columns 8 through 11. Area B occupies columns 
12 through 72. COBOL elements that may begin in Area A» and 
specific COBOL elements that may follow them» are shown in 
Figure 6. Additional rules are given in the following 
paragraphs. 



,,X 



Elements That May 
Begin in Area A 

di vi si on header 



section header 



paragraph header 
or paragraph-name 

level indicator 



Must be FolloMed 
Immediately By 

(Procedure Division only) 
USING Option 

section header* paragraph 
header, paragraph-name> 
or (in Procedure Division) 
key word DECLARATIVES 

COPY or USE statement 



paragraph header or 
paragraph-name (after 
COPY or USE, if specified) 

Environment Division entry 
or Procedure Division 

data-name 



Placement of 
FolloMing Elements 

same or next line 
(Area B) 

next line 
(Area A) 



same or next line 
(Area B) 



next line 
(Area A) 



same or next line 
(Area B) 

same line (Area B) 



key word 
DECLARATIVES. 

key words 

END DECLARATIVES. 



(Report Section only) 
optional data-name 



same line (Area B) 



Declaratives section name 
section-header 
Figure 6. Sequence of Elements in Area A and Area B 



next line 
(Area A) 






next line 
(Area A) 



DIVISION HEADER: A division header, except when a USING option 
is specified with a Procedure Division header, must be 
immediately followed by a period. Except for the USING option, 
no text may appear on the same line. 

SECTION HEADER: A section header, except when Procedure Division 
priority numbers are specified, must be immediately followed by 
a period. In the Environment and Procedure Divisions, a section 
consists of paragraphs. In the Data Division, a section 
consists of Data Division entries. 

PARAGRAPH HEADER, PARAGRAPH-NAME' In the Environment Division, a 
paragraph consists of a paragraph header followed in Area B by 
one or more entries. An entry consists of one or more clauses. 
In the Procedure Division, a paragraph consists of a 
paragraph-name followed in Area B by one or more sentences. A 
sentence consists of one or more statements; a statement is a 
syntactically valid combination of a COBOL verb and its 
operands. Entries and sentences must be followed by a period 
followed by a space. 

Successive entries or sentences begin in Area B of either the 
same line as the last entry or sentence, or of the next 
succeeding nonblank, noncomment line. 






'>: 
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DATA DIVISION ENTRIES: Each Data Division entry begins with a 
level indicator or level-number^ folloMed by a space> folloMed 
in Area B by a data-name* optionally followed by a sequence of 
independent clauses describing the item. Each clause, except 
the last, is followed by a space (or, optionally, by a comma or 
semicolon followed by a space). The last clause in the entry 
must be immediately followed by a period followed by a space. 



IBM Extension 1 



In the Report Section, the data-name entry is optional. 
• End of IBM Extension 



Successive clauses begin in Area B of either the same line as 
the preceding clause, or of the next succeeding nonblank 
noncomment line. 

A level indicator (FD, SD, CD) must begin in Area A followed by 
a space. (See the Data Division Organization chapter.) 



IBM Extension 



In the Report Section, the level indicator (RD) must begin in 
Area A, followed by a space. 



End of IBM Extension 



A level number is a one- or two-digit integer, with one of the 
values 1 through 49, 66, 77, or 88. At least one space must 
follow the level-number. (See the Data Description chapter.) 

Level-numbers 01 and 77 must begin in Area A, followed by a 
space. 

Level-numbers 02 through 49, 66, and 88 may begin in either Area 
A or Area B. 

INDENTATION: Within an entry or sentence, successive lines in 
Area B may have the same format, or be indented to clarify 
program logic. The output listing is thus indented only if the 
input card images are indented. Indentation does not affect the 
syntax of the program. The amount of indentation can be chosen 
by the programmer, subject only to the restrictions on the width 
of Area B. 

Note: Uhen the LISTER feature is used, the output listing 
appears with standard LISTER indentation, no matter what 
indentation the source uses. 

DECLARATIVES AND END DECLARATIVES: In the Procedure Division, 
the key words DECLARATIVES and END DECLARATIVES begin and end 
the declaratives portion of the source program. Each must begin 
in Area A followed immediately by a period; no other text may 
appear on the same line. After the key words END DECLARATIVES, 
no text may appear before the following section header. (See 
the Declaratives chapter.) 



Continuation of Lines 



Any sentence, entry, clause, or phrase that requires more than 
one line can be continued in Area B of the next succeeding 
noncomment line. The line being continued is a continued line ; 
the succeeding lines are continuation lines . Area A of a 
continuation line must contain only spaces. 

If there is no hyphen (-) in the continuation area (column 7) of 
a line, the last character of the preceding line is assumed to 
be followed by a space. 

If there is a hyphen in the continuation area of a line, the 
first nonblank character of this continuation line immediately 
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follouis the last nonblank character of the continued line 
without an intervening space. 

If the continued line contains a nonnumeric literal without a 
closing quotation mark, all spaces at the end of the continued 
line (through column 72) are considered to be part of the 
literal. The continuation line must contain a hyphen in the 
continuation areaf and the first nonblank character must be a 
quotation mark. The continuation of the literal begins with the 
character immediately following the quotation mark. 



( 



Comment Lines 



/ 



./ 



,,/ 



(XV/or slash A /,) i n 
e . /A comment (if ne 
wJ^g 



the 



A comment line is any line with an aster is 

the continuation area (column 7) of the li 

may be placed anywhere in the program foil 

Identification Division header. The commeiVt may be written 

anywhere in Area A and Area B of that line» and may consist of 

any combination of characters from the EBCDIC set. 

If the asterisk (x) is placed in the continuation area, this 
comment line is printed in the output listing immediately 
following the last preceding line. 

If the slash (/) is placed in the continuation area, the current 
page of the output listing is ejected and the comment line is 
printed on the first line of the next page. 

The asterisk or slash and the comment are produced only on the 
output listing. They are treated as documentation by the 
compiler. 

Successive comment lines are allowed. Each must begin with the 
appropriate character in the continuation area. 

Note: Rules for the formation of debugging lines are given in 
the Debugging Features chapter. 






Blank Lines 



Blank lines contain nothing but spaces from column 7 through 
column 72, inclusive. Except immediately preceding a 
continuation line, a blank line may appear anywhere in a 
program. 



( 



> 
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METHODS OF DATA REFERENCE 



QUALIFICATION 



Every user-specified name defining an element in a COBOL program 
must be unique — either because no other name has a 
character-string of the same valuer or because it can be made 
unique through qualification, subscri pti ng» or indexing. In 
addition, references to data and procedures can be either 
explicit or implicit. This chapter gives the rules for 
qualification and for explicit and implicit references. 



A name can be made unique if it exists within a hierarchy of 
names, and the name can be identified by specifying one or more 
higher-level names in the hierarchy. The highei — level names ar& 
called quali f i ers , and the process by which such names are made 
unique is called quali f i cati on . 

Qualification is specified by placing after a user-specified 
name one or more phrases, each made up of the word OF or IN 
followed by a qualifier. (OF and IN are logically equivalent.) 

Format 1 — References to Data Division l*ames 






I data-name-1 | I OF I 

< > C < > data-name-2 ] ... 

j condition-name I I XH I 

Format 2 — References to procedure Division^ames 

r OF 1 

paragraph-name C < > section-name] 
[IMJ 

Format 3 — References ^o COPY Libraries 
[ofI 

text-name C < > library-name] 
IINJ 

In Data Division references, all qualifying data-names must be 
associated with a level-indicator or level-number. Therefore, 
two identical data-names must not appear as subordinate entries 
in a group item unless they can be made unique through 
qualification. Names associated with a level-indicator ( FD, SD, 
CD, or RD) are the highest level in the hierarchy. Next highest 
are those associated with level-number 01. Names associated 
with level-numbers 02 through 49 are at successively lower 
levels in the hierarchy. 
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I '■ ' IBM Extension ' ■ — '" ' i g""'''\. 

In the Report Section, a report-name is the only available \.,i# 

qualifier for report group description data-names and sum 

counters. 



End of IBM Extension 



In the Procedure Division* two identical paragraph-names must 
not appear in the same section. A section-name is the highest 
(and only) qualifier available for a paragraph-name. 

In any hierarchy, the name associated with the highest level 
must be unique, and cannot be qualified. No matter what 
qualification is available, no name can be both a data-name and 
a procedure-name. 

Enough qualification must be specified to make the name unique; 
however, it may not be necessary to specify all the levels of 
the hierarchy. For example, if there i s more than one file 
whose records contain the field EMPLOYEE-NO, but only one of the 
files has a record named MASTER-RECORD, EMPLOYEE-NO OF 
MASTER-RECORD sufficiently qualifies EMPLOYEE-NO. EMPLOYEE-NO 
OF MASTER-RECORD OF MASTER-FILE is valid but unnecessary. 

Qualification Rules 

The following rules for qualification apply' 

• Each qualifier must be of a successively higher level, and 
must be within the same hierarchy as the name it qualifies. 

• The same name must not appear at two levels in a hierarchy. 

• If a data-name or condition-name is assigned to more than /^ 
one data item, it must be qualified each time it is referred VJ*^ 
to (for the one exception, see the REDEFINES clause 
description in the Data Description chapter). 

• A paragraph-name must not be duplicated within a section. 
i4hen a paragraph-name is qualified by a section-name, the 
word SECTION must not appear. A paragraph-name need not be 
qualified when referred to within the section in which it 
appears. 

• Mhen it is being used as a qualifier, a data-name cannot be 
subscripted. 

• A name can be qualified even though it does not need 
qualification. 

• If there is more than one combination of qualifiers that 
ensures uniqueness, then any of these combinations can be 
used. 

• No duplicate section-names are allowed. 

• No data-name can be the same as a section-name or a 
paragraph-name. 

• Duplication of data-names must not occur in those places 
where the data-names cannot be made unique by qualification. 

• The complete list of qualifiers for one data-name must not 
be the same as a partial list of qualifiers for another. 
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SUBSCRIPTING AND INDEXING 






Subscripts and indexes can be used only Mhen reference is made 
to an individual element Mi thin a table of elements that have 
not been assigned individual data-names. Subscripting and 
Indexing are explained in the chapter on Table Handling. 

EXPLICIT AND IMPLICIT REFERENCES 

COBOL source program references can be either explicit or 
implicit in three instances^ data attribute specification* 
Procedure Division data references* and transfers of control. 

DATA ATTRIBUTE SPECIFICATION 

Explicit attributes are specified in actual COBOL coding. 

If a data attribute is not an explicit attribute — that is> has 
not been specified in actual COBOL coding — it takes on a default 
value (one that the compiler assumes when an explicit 
specification is omitted). These default values are implici t 
attri butes . 

For example* the ACCESS MODE clause in the File-Control entry 
need not be specified; if it is omitted* the default is ACCESS 
MODE IS SEQUENTIAL, which is the implicit attribute. If* 
however* ACCESS MODE IS SEQUENTIAL is specified in COBOL coding* 
then it becomes an explicit attribute. (See the File-Control 
entry description in the Environment Division — Input-Output 
Section chapter.) 

PROCEDURE DIVISION DATA REFERENCES 

Procedure Division statements can refer to data items either 
explicitly or implicitly. 

An explicit reference occurs when the data-name of the item is 
written in a COBOL statement* or when the data-name is copied 
into the program through a COPY statement. An implicit 
reference occurs when the data name i s referred to by a COBOL 
statement without the name being written in that statement. For 
example* when a USE AFTER EXCEPTION/ERROR procedure for INPUT 
files is specified* there is an implicit reference to each 
file-name that identifies an input file. (See the description 
of the EXCEPTION/ERROR Declarative in the Declaratives chapter. J 



TRANSFERS OF CONTROL 



In the Procedure Division* program flow transfers control from 
statement to statement in the order in which they are written* 
unless there is an explicit control transfer or there is no next 
executable statement. (See Note below.) This normal program 
flow is an implicit transfer of control. 

In addition to the implicit transfers of control between 
consecutive statements* implicit transfer of control also occurs 
when the normal flow is altered without the execution of a 
procedure branching statement. COBOL provides the following 
types of implicit transfers of control which override the 
statement-to-statement transfers of control J 

• After execution of the last statement of a procedure being 
executed under control of another COBOL statement. (COBOL 
statements that control procedure execution are- MERGE* 
PERFORM* SORT* and USE.) 

• During SORT or MERGE statement execution* when control is 
transferred to any input or output procedure. 
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• During execution of any COBOL statement that causes 
execution of a Declarative procedure. 

• At the end of execution of any Declarative procedure. 

COBOL also provides explicit control transfers through the 
execution of any procedure branching or conditional statement. 
(Lists of procedure branching and conditional statements are 
given in the Procedure Division Structure chapter.) 

Note: The term "next executable statement" refers to the next 
COBOL statement to which control i s transferred according to the 
rules given above. Note that there is no next executable 
statement following: 

• The last statement in a Declarative procedure that is not 
being executed under control of another COBOL statement. 

• The last statement in a COBOL program when the procedure in 
which it appears is not being executed under control of 
another COBOL statement. 



./"■^A 



^ts„„ 



J 
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PART 2. IDENTIFICATION AND ENVIRONMENT DIVISIONS 



IDENTIFICATION DIVISION 

ENVIRONMENT DIVISION — CONFIGURATION SECTION 

ENVIRONMENT DIVISION — INPUT-OUTPUT SECTION 
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IDENTIFICATIONXDIVISION 




The Identification Division must be the first division in every 
COBOL source program. This division names the source program 
and the object program. 

A source program is the initial COBOL program. An object 
program is the output from a compilation. 

The user may also include in the Identification Division the 
date the program was written* the date of compilation* and other 
such documentary information about the program. 



Format 

I IDENTIFICATION DIVISION 



ID DIVISION. 



PROGRAM-ID . program-name. 

[ AUTHOR , [comment-entry] ... 3 

[ INSTALLATION , [comment-entry] ... 3 

[ DATE-URITTEN . [comment-entry] ... ] 

[ DATE-COMPILED , [comment-entry] ... ] 

[ SECURITY , [comment-entry] ... ] 

The Identification Division must begin with the words 
IDENTIFICATION DIVISION followed by a period followed by a 
space. 



I IBM Extension 

However* this IBM implementation accepts the abbreviation ID 
DIVISION as a substitute for the standard Division header. 



End of IBM Extension 



The first paragraph of the Identification Division must be the 
PROGRAM-ID paragraph. The other paragraphs are optional* but 
when written must appear in the order shown in the format. 



I IBM Extension 



However* this IBM implementation accepts the optional paragraphs 
in any order. 



End of IBM Extension 



The comment-entri es in the optional paragraphs may be any 
combination of characters from the EBCDIC set* and may be 
written in Area B on one or more lines. Use of the hyphen in 
the continuation area is not permitted. 






\,,_j^' 



i 



J' 
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PROGRAM-ID PARAGRAPH 



The PROGRAM-ID paragraph specifies the name by which the program 
is known to the system. 

The PROGRAM-ID paragraph must be the first paragraph in the 
Identification Division. 

Program-name is a usei — defined word that identifies the object 
program to the system. The system uses the first 8 characters 
of program-name as the identifying name of the program; these 
first 8 characters, therefore, should be unique among 
prog ram- names. 

The system expects the first character of program-name to be 
alphabetic; if it is numeric, it is converted as follows^ 

• to J 

• 1 through 9 to A through I 

The system does not include the hyphen as an allowable 
character; therefore, if the hyphen is the second through eighth 
character, it is converted to 0. 

See the System Dependencies chapter for further information. 



DATE-COMPILED PARAGRAPH 






The DATE-COMPILED paragraph provides the compilation date in the 
source 1 i sti ng. 

When a comment-entry is specified, the entire entry is replaced 
with the current date, even if the entry spans lines. 

When the comment-entry is omitted, the compiler adds the current 
date to the line on which DATE-COMPILED is printed. 



OTHER OPTIONAL PARAGRAPHS 



The other paragraphs in the Identification Division may be 
included at the user's choice. 

The comment-entries serve only as documentation, and do not 
affect the syntax of the program. 
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gyiVlRONMENT DIVISION — CONFIGURATION SECTION 




,/r'^ 
\..-./' 




IBM Extension 



The Configuration Section is optional in a COBOL source program. 

' End of IBM Extension ' 

In the Configuration Section* the comma or semicolon may* 
optionally, be used to separate successive clauses within a 
paragraph. In each paragraph there must be one and only one 
period* placed immediately after the last entry in the 
paragraph. 



< \ 



K_y 



if 



J 
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o 



Format 

ENVIRONMENT DIVISION . 

I C I CONFIGURATION SECTION. 



SOURCE-COMPUTER . computer-name [WITH DEBUGGING MODE l 
OBJECT-COMPUTER . computer-name 

I UIORDS 1 
[ MEMORY SIZE integer < CHARACTERS > ] 

I MODULES J 

[PROGRAM COLLATING SEQUENCE IS alphabet-name] 

[ SEGMENT-LIMIT IS priority-number]. 

[ SPECIAL-NAMES . 

[functi on-name-1 I^ mnemonic-name] ... 

[functi on-name-2 [IS. mnemonic-name] 

[ ON STATUS IS condition-name-1] 1 

I tOFF STATUS IS condi ti on-name-2] | 

< >]...] 

I OFF STATUS IS condi ti on-name-2 I 

I [ON STATUS IS condition-name-1] J 

[alphabet-name IS 



STANDARD-1 
NATIVE 

literal-1 



[ through ] 

< > literal-2 
[ THRU J 

ALSO literal-3 

[ALSO literal-^] . . 



[literal-5 



I THROUGH I 

< > literal-6 

[IHRU J 

ALSO literal-7 

[ALSO literal-8] .. 



].. 



[ CURRENCY SIGN IS literal-9] 
[ DECIMAL-POINT IS COMMA ]. F 



SOURCE-COMPUTER PARAGRAPH 



The SOURCE-COMPUTER paragraph describes the computer on which 
the source program is to be compiled. 

Computer-name is a system-name in the form IBM-37 
[-model-number] . 

The WITH DEBUGGING MODE clause is described in the Debugging 
Features chapter. 
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Except for the WITH DEBUGGING MODE clause, the SOURCE-COMPUTER 
paragraph is treated as documentation. if^^ 



OBJECT-COMPUTER PARAGRAPH 



The OBJECT-COMPUTER paragraph identifies the computer on which 
the object program is to be executed. 

Computer-name must be the first entry in the OBJECT-COMPUTER 
paragraph. Computet — name is a system-name in the form IBM-370 
C-model-number] . 

The MEMORY SIZE clause can be used to document the amount of 
main storage needed to run the object program. 

The PROGRAM COLLATING SEQUENCE clause specifies that the 
collating sequence used in this program (and this program only) 
is the collating sequence associated with the specified 
alphabet-name> which must be defined in the SPECIAL-NAMES 
paragraph. The program collating sequence is used to determine 
the truth value of the following nonnumeric comparisons^ 

• Those explicitly specified in relation conditions. 

• Those explicitly specified in condition-name conditions. 

I IBM Extension 1 



Those implicitly specified by a CONTROL clause in an RD 
entry. 



End of IBM Extension 



The PROGRAM COLLATING SEQUENCE clause also applies to any 
nonnumeric merge or sort keys (unless the COLLATING SEQUENCE 
option is specified in the MERGE or SORT statement). 

When the PROGRAM COLLATING SEQUENCE clause is omitted, the 
EBCDIC collating sequence is used. (See Appendix F for the 
complete EBCDIC collating sequence.) 

The SEGMENT-LIMIT clause is described in the Segmentation 
chapter . 

Except for the PROGRAM COLLATING SEQUENCE and SEGMENT-LIMIT 
clauses, the OBJECT-COMPUTER paragraph is treated as 
documentat i on . 

Note: See Appendix B for ASCII considerations. 



SPECIAL-NAMES PARAGRAPH 



FUNCTION-NAME-1 



\.J^' 



The SPECIAL-NAMES paragraph relates IBM-specified function-names 
to usei — specified mnemonic-names; it also specifies a collating 
sequence to be associated with an alphabet-name, a substitute 
character for the currency sign, and that the functions of the 
comma and decimal point are to be interchanged in PICTURE 
clauses and numeric literals. 



Functi on-name-1 specifies system devices or standard system 
actions taken by the compiler. 

The associated mnemonic-name is required; it follows the rules 

of formation for a user-specified name, and at least one 

character must be alphabetic. The mnemonic-name can be used in ^ — ^ 

ACCEPT, DISPLAY, and WRITE statements. See the System | , 

Dependencies chapter for a list of valid function-names. \....J^ 
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FUNCTION-NAME-2 



Funct i on-name-2 defines a one-byte program switch. 

Functi on-name-2 may be defined as UPSI-0 through UPSI-7 . (Each 

UPSI is a User Program Status Indicator switch.) At least one 

condition-name must be associated with each specified UPSI 

switch. 

Each condition-name follows the rules of formation for a 
usei — specified name; at least one character must be alphabetic. 
The value associated with the condition-name is considered to be 
alphanumer i c. 

In the procedure division* the status of the UPSI switch is 
tested through the associated condi t i on-name( s) . Each 
condition-name is the equivalent of a level-88 item; the 
associated mnemoni c-name» if specified, is considered the 
conditional variable and can be used for qualification. (See 
Switch Status Condition description in the chapter on 
Conditional Expressions.) 

See the System Dependencies chapter for a further discussion. 



ALPHABET-NAME CLAUSE 



Provides a means of relating an alphabet-name to a specified 
character code set or collating sequence. 

When the alphabet-name is specified in the PROGRAM COLLATING 
SEQUENCE clause of the OBJECT-COMPUTER paragraph, or in the 
COLLATING SEQUENCE option of the sort or merge statement, it 
specifies a collating sequence. 

When the alphabet-name is specified in the FD entry CODE-SET 
clause, it specifies a character code set. 

When STANDARD-1 is specified, the code set or collating sequence 
to be used is the ASCII character set (see Appendix B, ASCII 
consi derati ons) . 

When NATIVE is specified, the code set or collating sequence to 
be used is the EBCDIC character set. This is also the character 
set or collating sequence used when the alphabet-name clause is 
omi tted. 

Note: Both the EBCDIC and ASCII collating sequences are given 
in Appendix G. 

(4hen the literal option is specified, the alphabet-name must not 
be referred to in a CODE-SET clause (see CODE-SET clause 
description in the FD Entry chapter). 

When the literal option is specified, the collating sequence to 
be used is specified by the programmer according to the 
following rules- 

• The order in which literals appear specifies the ordinal 
number, in ascending sequence, of the character(s) in this 
collating sequence. 

• Each numeric literal specified must be an unsigned integer, 
and must have a value from 1 through the maximum number of 
characters in the EBCDIC character set (256). The value of 
each literal specifies the ordinal number of a character 
within the EBCDIC character set. (That is, the literal 112 
represents the EBCDIC character ?, the literal 234 
represents the EBCDIC character Z, the literal 241 
represents the EBCDIC character 0, and so forth.) 

• Each character in a nonnumeric literal represents that 
actual character in the EBCDIC set. If the nonnumeric 
literal contains more than one character, each character. 
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starting with the leftmost > is assigned a successively 

ascending position within this collating sequence. /nT N 

Any EBCDIC characters not explicitly specified assume *-^^ 

positions in this collating sequence higher than any of the 
explicitly specified characters. The relative order of the 
unspecified characters within the EBCDIC set remains 
unchanged. 

Within one alphabet-name clause> a given character must not 
be specified more than once. 

Each nonnumeric literal associated with a THROUGH or ALSO 
option must be one character in length. 

When the THROUGH option is specified, the contiguous EBCDIC 
characters beginning with the character specified by 
literal-1 and ending with the character specified by 
literal-2 are assigned successively ascending positions in 
this collating sequence. This sequence may be either 
ascending or descending within the original EBCDIC sequence. 
(That is, if "Z" through "A" is specified, left-to-right, 
for this collating sequence the ascending values, 
left-to-right, for the capital letters are 
ZYXWVUTSRQPONMLKJIHGFEDCBA. ) 

When the ALSO option is specified, the EBCDIC characters 
specified as literal-1, literal-3, literal-4, and so forth, 
are assigned to the same position in this collating 
sequence. (That is, if "D" ALSO "N" ALSO 112 ALSO "%" is 
specified, for this collating sequence the characters D, N, 
?, and % sre all considered to be in the same position in 
the collating sequence.) 

The character having the highest ordinal position in this 

collating sequence is associated with the figurative /A 

constant HIGH-VALUE. If more than one character has the I ; 

highest position, due to specification of the ALSO option, \ J*^ 

the last character specified is considered to be the 

HIGH-VALUE character for procedural statements such as 

DISPLAY, or as the sending field in a MOVE statement. (If 

the ALSO option example given above were specified as the 

high-order characters of the collating sequence, the 

HIGH-VALUE character would be 5i.) 




Alphabet-Name Clause Examples 



The following examples illustrate some uses for the 
alphabet-name clause. 

If PROGRAM COLLATING SEQUENCE IS USER-SEQUENCE, and the 
alphabet-name clause is specified as USER-SEQUENCE IS "D," "E," 
"F," and two Data Division items are defined as follows^ 

77 ITEM-1 PIC X(3) VALUE "ABC". 
77 ITEM-2 PIC X(3) VALUE "DEF". 

Then the comparison IF ITEM-1 > ITEM-2 is true . 

(Characters D, E, F are in ordinal positions 1, 2, 3 of this „^ 

collating sequence. Characters A, B, C are in ordinal positions m ^ 
197, 198, 199 of this collating sequence.) \,^ 
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If the alphabet-name clause is specified as USER-SEQUENCE is 1, 
2, 5, 4, 5, 6, 10, 11 ... 254, 255, "7," ALSO "8," ALSO "9" (and 
all 255 EBCDIC characters have been specified), and two Data 
Division items are specified as follows^ 

77 ITEM-1 PIC X(3) VALUE HIGH-VALUE. 
77 ITEM-2 PIC X(3) VALUE "787". 

Then both of the following comparisons are true * 

IF ITEM-1 = ITEM-2. .. 

IF ITEM-2 = HIGH-VALUE... 

(They compare as true because the values 7, 8, and 9 all occupy 
the same position in this USER-SEQUENCE collating sequence.) 

If the alphabet-name clause is specified as USER-SEQUENCE IS 
"E," "D," "F," and a table in the Data Division is defined as 
follows: 

05 TABLE A OCCURS 5 ASCENDING KEY IS KEY-A 
INDEXED BY INX-A. 
10 FIELD-A ... . 
10 KEY-A .... 

If the contents in ascending sequence of each occurrence of 
KEY-A are A, B, C, D, E, G, the results of the execution of a 
SEARCH ALL statement for this table will be invalid, since the 
contents of KEY-A are not in ascending order. (The proper 
ascending order would be E, D, A, B, C, G.) 



CURRENCY SIGN CLAUSE 



Literal-9, which appears in the CURRENCY SIGN clause, represents 

the currency symbol in the PICTURE clause. Literal-9 must be a 

one-character nonnumeric literal, and must not be any of the 
following characters J 

• Digits through 9 

• Alphabetic characters ABCDLPRSVXZor the space 

• Special characters »< + -/,.;()=" 

Note: For the quotation mark as formerly implemented, see 
Appendix A. ^fn^ 4oh) 

When the CURRENCY SIGN clause is omitted, only the dollar sign 
($) may be used as the PICTURE symbol for the currency sign. 



DECIMAL POINT IS COMMA CLAUSE 



PROGRAMMING NOTES 



When the DECIMAL POINT IS COMMA clause is specified, the 
functions of the period and the comma are exchanged in PICTURE 
character strings and in numeric literals. 



User Program Status Indicator (UPSI) switches are useful for 
processing special condi ti ons within a program — such as 
year-beginning or year-ending processing. At the beginning of 
the Procedure Division, an UPSI switch can be tested; if it is 
ON, the special branch i s taken. An example of this use of an 
UPSI switch is given in the Report Writer sample program. 

The PROGRAM COLLATING SEQUENCE clause in conjunction with the 
alphabet-name clause can be used to specify EBCDIC nonnumeric 
comparisons for an ASCII-encoded tape file, or ASCII nonnumeric 
comparisons for an EBCDIC-encoded tape file. 
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The literal option of the alphabet-name clause can be used to 
process internal data in a collating sequence other than NATIVE 
or STANDARD- 1. 
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ISION — INPUT-OUTPUT SECTION 



The Input-Output Section defines each file* identifies its 
external storage medium, assigns the file to one or more 
input/output devices* and specifies information needed for 
efficient transmission of data between the external medium and 
the COBOL program. 

The Input-Output Section is divided into two paragraphs J the 
FILE-CONTROL paragraph* which names and associates the files 
with the external media; and the I-0-CONTROL paragraph, which 
defines special input/output techniques to be used. 

General Format — Input-Output Section 

CINPUT-OUTPUT SECTION. 







FILE-CONTROL , file-control entry 



tfi le— control entry] 







I I-O-CONTROL . input-output-control entry] ] 

The exact contents of the Input-Output Section depend on the 
file organization and access methods used. The following 
summary gives some background in the file processing techniques 
available in COBOL. 



FILE PROCESSING SUMMARY 




The method used to process a file in a COBOL program depends on 
its data organization and on the access mode used. 

Data organization is the permanent logical structure of the 

f i le*_^Stiiyfe,lXsto^^^ at the time the file is created. Three types 
of <!0ata organizaTt'^ are available^ sequential* indexed* and 

f e 1 giET'ir^rr^'^'"''--''^^^^^ 

An access mode i s the manner in which records in a file are to 
be processed. Three access modes are available^ sequential* 
random, and dynamic. 

The following paragraphs describe both the types of data 
organization available* and access modes. 



DATA ORGANIZATION 



In a COBOL program* data organization can be sequential* 
indexed* or relative. 



VSAM or Physical Sequential Organization 



With this organization* each record in the file except the first 
has a unique predecessor record* and each record except the last 
has a unique successor record. The predecessoi — successor 
relationships are established by the physical order in which 
records are placed in the file at file creation time. Once 
established* these relationships do not change* except that a 
file can be extended. Records can be fixed or variable in 
length* there are no keys. 
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Physical sequential and VSAM sequential files have sequential 
organization. 



VSAH Indexed organization 



With this organization* each record in the file has one or more 
embedded keys* each of which is associated with an index. Each 
index provides a logical path to the data records according to 
the contents of the associated embedded record key data items. 
Indexed files must be direct access storage files. Records can 
be fixed or variable in length. 

Each record in an indexed file must have an embedded prime 
record key. Ulhen records are inserted* updated* or deleted they 
are identified solely by the values of their prime record keys. 
Consequently, the value in each prime record key data item must 
be unique and must not be changed when the record is updated. 

In addition* each record in an indexed file may contain one or 
more embedded alternate record keys. Each alternate key 
provides an alternative access path for record retrieval. The 
programmer can specify that the values contained in an alternate 
record key need not be unique. 

The key used for any specific input/output request is known as 
the key of reference . 

VSAM indexed files have indexed organization. 



VSAM Relative Organization 



With this or 
its relative 
serial strin 
record. Eac 
number* reco 
For example* 
record numbe 
number 10* w 
second throu 
di rect acces 
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ganization* each record in the 
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g of areas* each of which may c 
h of these areas is identified 
rd storage and retrieval are ba 
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e fixed or variable 



VSAM relative files have relative organization. 



c 






ACCESS MODES 



Three access modes are available in COBOL 
and dynami c. 



sequential* random* 



Sequential access mode allows reading and writing records of a 
file in a serial manner; the order of reference is implicitly 
determined by the position of a record in the file. 

Random access mode allows reading and writing records in a 
programmei — specified manner* the control of successive 
references to the file is expressed by specifically defined keys 
supplied by the user. 

Dynamic access mode allows a specific input/output request to 
determine the access mode. Therefore* records may be processed 
sequentially and/or randomly. 



Sequential Files 



Files with sequential organization can be accessed only 
sequentially. The sequence in which records are accessed 
order in which the records were originally written. 



i s the 
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VSAM Indexed Files 



All three access modes are alloMed. 

In the sequential access mode> the sequence in which records are 
accessed is the ascending order of the prime record key or 
alternate record key value. The order of retrieval of records 
within a set of records having duplicate alternate record key 
values is the order in which the records were written into the 
set. 

In the random access mode^ the sequence in which records are 
accessed is controlled by the programmer. The desired record is 
accessed by placing the value of its prime record key or 
alternate record key in that record key data item. If a set of 
records has duplicate alternate record key values^ only the 
first record written is available. 

In the dynamic access mode, the programmer may change as 
necessary from sequential access to random access using 
appropriate forms of input/output statements. 



VSAM Relative Files 






All three access modes are allowed. 

In the sequential access mode, the sequence in which records are 
accessed is the ascending order of the relative record numbers 
of all records which currently exist within the file. 

In the random access mode, the sequence in which records are 
accessed is controlled by the programmer. The desired record is 
accessed by placing its relative record number in a RELATIVE KEY 
data item; the RELATIVE KEY must not be defined within the 
record description entry for this file. 

In the dynamic access mode, the programmer may change as 
necessary from sequential access to random access using 
appropriate forms of input/output statements. 



FILE-CONTROL PARAGRAPH 



c 



The FILE-CONTROL paragraph associates each file in the COBOL 
program with an external medium, and allows specification of 
file organization, access mode, and other information. 

Format 1 — Sequential File Entries 

FILE-CONTROL . 

SELECT [ OPTIONAL ] file-name 

ASSIGN TO assi gnment-name-1 Cassi gnment-name-2] ... 

AREA 

] 
AREAS / 



[ RESERVE integer 



[ ORGANIZATION IS SEQUENTIAL ] 
[ ACCESS MODE IS SEQUENTIAL ] 






J '■* 



.JAi^ 



[PASSWORD IS data-name-1] 



[FILE STATUS IS data-name-2] . 
Note: PASSWORD is only for VSAM sequential files. 
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Format 2 — VSAM indexed File Entries 

FILE-CONTROL . 

SELECT file-name 

ASSIGN TO assignment-name Cassi gnment-name-23 



[ RESERVE integer 



AREA 
AREAS 



I 3 



/-^, 
\ f 



ORGANIZATION IS INDEXED 

\ SEQUENTIAL 1 

[ ACCESS MODE IS < RANDOM > 3 

1 DYNAMIC I 

IL J 

RECORD KEY IS data-name-3 



[PASSWORD IS data~name-13 



[ ALTERNATE [7] RECORD [7] KEY IS data-name~4 



[PASSWORD IS data-name-53 



[WITH DUPLICATE S3 3 ... 
CFILE STATUS IS data-name-23 . 
Format 3 — VSAM Relative File Entries 
FILE-CONTROL . 

SELECT file-name 

ASSIGN TO assi gnment-name-1 [assi gnment-name-23 ... 

I AREA I 
[ RESERVE integer | | 3 
I AREAS I 

L J 

ORGANIZATION IS RELATIVE 



\_J^ 



SEQUENTIAL [ RELATIVE KEY IS data-name-63 



I [ RANDOM 1 

[ ACCESS MODE IS < < > RELATIVE KEY IS data-name-7 > 3 

DYNAMIC J I 



L L 



[PASSWORD IS data-namQ-13 

I I 



[FILE STATUS IS data-name-23. 



\j 
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Each file described in an FD or SD entry in the Data Division 
must be described in one and only one entry in the File-Control 
paragraph. 

The key word FILE-CONTROL may appear only once, at the beginning 
of the File-Control paragraph. The word FILE-CONTROL must begin 
in Area A» and be followed by a period followed by a space. 

Each FILE-CONTROL entry must begin in Area B with a SELECT 
clause. The order in which other clauses appear is not 
si gni f i cant. 



I IBM Extension 



There is one exception to this rule. For indexed files, the 
PASSWORD clause, if specified, must immediately follow the 
RECORD KEY or ALTERNATE RECORD KEY data-name with which it is 
associated. (In the ALTERNATE RECORD KEY clause, the key word 
RECORD is optional.) 

' End of IBM Extension 



SELECT CLAUSE 



Optionally, each clause within a File-Control entry may be 
separated from the next by a comma or semicolon followed by a 
space. Each File-Control entry ends with a period followed by a 
space. 

Each data-name must appear in a Data Division data description 
entry; each must be fixed length, and be at a fixed position 
from the beginning of the record in which it appears. Each 
data-name may be qualified; it must not be subscripted or 
i ndexed. 



Each file-name specified in a SELECT clause must have an FD or 
SD entry in the Data Division. A file-name must conform to the 
rules for a COBOL usei — defined name, must contain at least one 
alphabetic character, and must be unique within this program. 



Format 1 Considerations 



ASSIGN CLAUSE 



The OPTIONAL phrase may be specified only for input files with 
sequential organization. It must be specified for those input 
files that are not necessarily present each time the object 
program is executed. 

For the SELECT OPTIONAL clause as previously implemented, see 
Appendix A. For Sort/Merge considerations, see the chapter on 
the Sort/Merge feature. For ASCII considerations, see Appendix 
B. 



The ASSIGN clause associates the file with an external medium. 
The assignment-name makes the association between the file and 
the external medium; it has the following formats^ 

• Physical sequential files [comments-] CS-]name 

• VSAM sequential files [comments-] AS-name 

• VSAM indexed or relative files [comments-]name 

The name field must conform to the rules for formation of a 
program-name. 

See also the chapter on System Dependencies. 

Any assignment-name after the first is treated as documentation. 
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RESERVE CLAUSE 



ORGANIZATION CLAUSE 



See the chapter on System Dependencies for information 



The ORGANIZATION clause specifies the logical structure of the 
file. The file organization is established at the time the fili 
is created and cannot subsequently be changed. 

When the ORGANIZATION clause is omitted, ORGANIZATION IS 
SEQUENTIAL is assumed. 






Format 1 Considerations 



When ORGANIZATION IS SEQUENTIAL is specified or implied, a 
predecessoi — successor relationship of the records in the file is 
established by the order in which records are placed in the file 
Mhen it is created or extended. 



Format Z Considerations 



When ORGANIZATION IS INDEXED is specified, the position of each 
logical record in the file is determined by indexes created with 
the file and maintained by the system. The indexes are based on 
embedded keys within the file's records. 



Format 3 Considerations 



ACCESS NODE CLAUSE 



When ORGANIZATION IS RELATIVE is specified, the position of each 
logical record in the file is determined by its relative record 
number. 



The ACCESS MODE clause defines the manner in which the records 
of the file are made available for processing. 

When this clause is omitted, ACCESS IS SEQUENTIAL is assumed. 



'v.. ,,-j/ 



Format 1 Considerations 



For files with sequential organization, records in the file are 
accessed in the sequence established when the file is created or 
extended. Whether ACCESS IS SEQUENTIAL is specified or omitted, 
sequential access is always assumed. 



Format Z Considerations 



For files with indexed organization, the access mode can be 
SEQUENTIAL, RANDOM, or DYNAMIC. 

When ACCESS IS SEQUENTIAL is specified or implied, records in 
the file are accessed in the sequence of ascending record key 
values within the currently used key of reference. 

When ACCESS IS RANDOM is specified, the value placed in a record 
key data item specifies the record to be accessed. 

When ACCESS IS DYNAMIC is specified, records in the file can be 
accessed sequentially or randomly, depending on the form of the 
specific input/output request. 



( 



J 
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Format 3 Considerations 



For files with relative organizati on» the access mode can be 
SEQUENTIAL, RANDOM, or DYNAMIC. 

When ACCESS IS SEQUENTIAL is specified or implied, records in 
the file are accessed in the ascending sequence of relative 
record numbers of existing records in the file. 

When ACCESS IS RANDOM is specified, the value placed in the 
RELATIVE KEY data item specifies the record to be accessed. 

When ACCESS IS DYNAMIC is specified, records in the file can be 
accessed sequentially or randomly, depending on the form of the 
specific input/output request. 



PASSWORD CLAUSE 



I IBM Extension 



The PASSWORD clause controls object-time access to the file. 

Both data-name-1 and data-name-5 are password data items; each 
must be defined in the Working-Storage section as an 
alphanumeric item. The first 8 characters are used as the 
password; a shorter field is padded with blanks to 8 characters. 
Each password data item must be equivalent to one that is 
externally defined. 

When the PASSWORD clause is specified, at object time the 
PASSWORD data item must contain the valid password for this file 
before the file can be successfully opened. 



\ Format 1 Considerations 



The PASSWORD clause is only valid for VSAM sequential files. 



Format 2 Considerations 



When the PASSWORD clause is specified, it must immediately 
follow the RECORD KEY or ALTERNATE RECORD KEY data-name with 
which it is associated. 

See also the System Dependencies chapter. 

' End of IBM Extension 



FILE STATUS CLAUSE 



The FILE STATUS clause allows the user to monitor the execution 
of each input/output request for the file. 

Data-name-2 is the status key data item. Data-name-2 must be 
defined in the Data Division as a two-character alphanumeric 
item. Data-name-2 must not be defined in the File Section. 

1 IBM Extension 1 

However, this IBM implementation allows data-name-2 to be 
defined as a 2-character external-decimal unsigned integer; it 
is treated as an alphanumeric item. It must not be defined as 
the object of an OCCURS DEPENDING ON clause. Also, data-name-2 
must not be defined in the Report Section. 



End of IBM Extension 
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When the FILE STATUS clause is specified* the system moves a 
value into the status key data item after each input/output ^ — ^ 

request that explicitly or implicitly refers to this file. The f 
value indicates the status of execution of the statement. (See V ./^ 
"Status Key" in the Input/Output Statements chapter.) 

RECORD KEY CLAUSE t FORMAT 2) ' j 

The RECORD KEY clause specifies the data item within the record 
that is the prime record key for an indexed file. The values 
contained in the prime record key data item must be unique among 
records in the file. 

Data-name-3 i s the prime RECORD KEY data item. It must be 
described as a fixed-length alphanumeric item within a record 
description entry associated with the file. 



I IBM Extension 



However* this IBM implementation allows data-name-3 to be 
defined as an external-decimal unsigned integer; it is treated 
as an alphanumeric item. 



End of IBM Extension 



The data description of data-name-3 and its relative location 
within the record must be the same as the ones used when the 
file was defined. 



ALTERNATE RECORD KEY CLAUSE (FORMAT 2) 



The ALTERNATE RECORD KEY clause specifies a data item within the 
record that provides an alternative path to the data in an 
i ndexed f i le. 

Data-name-4 is an ALTERNATE RECORD KEY data item. It must be 
described as a fixed-length alphanumeric item. 



v.„# 



I IBM Extension 



However* this IBM implementation allows data-name-^ to be 
defined as an external-decimal unsigned integer; it is treated 
as an alphanumeric item. 



End of IBM Extension 



The data description of data-name-4 and its relative location 
within the record must be the same as the ones used when the 
file was defined. 

The leftmost character position of data-name-4 must not be the 
same as the leftmost character position of the RECORD KEY or of 
any other ALTERNATE RECORD KEY. 

If the DUPLICATES option is not specified, the values contained 
in the ALTERNATE RECORD KEY data item must be unique among 
records in the file. 

If the DUPLICATES option is specified* the values contained in 
the ALTERNATE RECORD KEY data item may be duplicated within any 
records in the file. In sequential access, the records with 
duplicate keys are retrieved in the order they were placed in 
the file. In random access* only the first record written of a 
series of records with duplicate keys can be retrieved. 



c 
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RELATIVE KEY CLAUSE (FORHAT 3) 



The RELATIVE KEY clause specifies the relative record number for 
a specific logical record within a relative file. 

Data-name-6 or data-name-7 is the RELATIVE KEY data item. It 
must be defined as an unsigned integer data itern^ and must not 
be defined in a record description entry associated with this 
relative file. That is, the RELATIVE KEY is not part of the 
record. 

When ACCESS IS SEQUENTIAL is specified, data-name-6 , the 
RELATIVE KEY data item, need not be specified, unless the START 
statement is to be used. When the START statement is issued, 
the system uses the contents of the RELATIVE KEY data item to 
determine the record at which sequential processing is to begin. 

If a value is placed in the RELATIVE KEY data item, and a START 
statement is not issued, the value is ignored and processing 
begins with the first record in the file. 

When ACCESS IS RANDOM or ACCESS IS DYNAMIC is specified, 
data-name-7, the RELATIVE KEY data item, must be specified. For 
each random processing request, the contents of the RELATIVE KEY 
data item are used to communicate a relative record number to 
the system. 



I-0~CONTROL PARAGRAPH 



o 



The I-0-CONTROL paragraph specifies when checkpoints are to be 
taken, the storage areas to be shared by different files, and 
the location of files on a multiple file reel. 

Format 

Format 1 — Physical Sequential Files 

I-0-CONTROL . 

[ RERUN ON assignment-name 



EVERY 



fin 



teger-1 RECORDS 



I [END OF] < > I 

I I UNIX I I 

I •- -^ I 

L J 



r REEL I > OF file-name-13 



r RECORD 
[SAME I SORT 



AREA 



I SORT-MERGE | 

L J 



r 1 

FOR file-name-Z < file-name-3 > 

L J 



[ MULTIPLE FILE TAPE CONTAINS 
file-name-^ [ POSITION integer-23 
[file-name-5 [ POSITION integer-33] 



o 
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RERUN CLAUSE 



Format 2 — VSAM Files 

I-0-CONTROL . 

[ RERUN ON assignment-name 

EVERY integer-1 RECORDS OF file-name-1] ... 

[ RECORD 1 

[ SAME SORT I AREA 

I SORT-MERGE | 

L J 

FOR f 1 le-name-2 (f i le-name-3} ... ] ... 

The I-0-CONTROL paragraph is optional in a COBOL program. 

The key word I-0-CONTROL may appear only once» at the beginning 
of the I-0-CONTROL paragraph. The word I-O-CONTROL must begin 
in Area A> and be followed by a period followed by a space. 

J IBM Extension 1 

The order in which I-O-CONTROL paragraph clauses are written is 
not significant. 



' End of IBM Extension 



Optionally, each clause within the I-O-CONTROL entry may be 
separated from the next by a comma or semicolon followed by a 
space. The I-O-CONTROL entry ends with a period followed by a 
space. 



Format 1 Considerations 



This format is used when file-name-1 indentifies a physical 
sequential file. File-name-1 names the file for which 
checkpoint records ar& to be taken. 

integer-1 RECORDS option: This option specifies that a 
checkpoint record is to written for every integer-1 record of 
file-name-1 that are processed. 

When multiple integer-1 RECORDS clauses sre specified, no two of 
them may specify the same file-name-l. 

END OF REEL/UNIT Option: This option specifies that a checkpoint 
record is to be written whenever end-of-volume for file-name-1 
occurs. The terms REEL and UNIT are interchangeable. 

When multiple END OF REEL/UNIT clauses are specified, no two of 
them may specify the same file-name-1. 



(■; ■ 



r 



The RERUN clause specifies that checkpoint records are to be \_>^ 
taken. 

More than one RERUN clause, subject to the restrictions given 
with each option, may be specified. 

assignment -name specifies the external medium for the checkpoint 
file. It must not be the same assignment-name as that specified 
in any ASSIGN clause. It has the formats 

[comments-] [S-] name 

that is, it must be a physical sequential file. It must reside 
on a tape or a direct access storage device. 

Note: For ASCII considerations, see Appendix B. 



\J 
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Format 2 considerations 



SANE CLAUSE 



m ff 



When file-name-1 identifies a VSAM ( sequent ial» indexed^ or 
relative) only the integer-1 records option is valid. This 
option specifies that a checkpoint record i s to be written for 
every integei — 1 record of file-name-1 that is processed. 

When multiple integer-1 RECORDS clauses are written » no two of 
them may specify the same file-name-1. 



The SAME clause specifies that two or more files are to use the 
same main storage area during processing. 

The files named in a SAME clause need not have the same 
organization or access. 

The following discussion describes only the SAME RECORD AREA and 
SAME AREA options. The SAME SORT AREA and SAME SORT-MERGE area 
options are discussed in the chapter on the Sort-Merge Feature. 

The SAME RECORD AREA clause specifies that two or more files are 
to use the same main storage area for processing the current 
logical record. All of the files may be open at the same time. 
A logical record in the shared storage area is considered to be* 

• A logical record of each opened output file in this SAME 
RECORD AREA clause^ and 

• A logical record of the most recently read input file in 
this SAME RECORD AREA clause. 

For physical sequential files» if the SAME AREA clause does not 
contain the RECORD option^ the area being shared includes all 
storage areas assigned to the files; therefore, it is not valid 
to have more than one of these files open at one time. 

For VSAM files, the SAME AREA clause has the same meaning as the 
SAME RECORD AREA clause. 

More than one SAME clause may be included in a progr&mi however' 

1. A specific file-name must not appear in more than one SAME 
AREA clause. 

2. A specific file-name must not appear in more than one SAME 
RECORD AREA clause. 

3. If one or more file-names of a SAME AREA clause appear in a 
SAME RECORD AREA clause, all the file-names in that SAME 
AREA clause must appear in that SAME RECORD AREA clause. 
However, that SAME RECORD AREA clause may contain additional 
file-names that do not appear in that SAME AREA clause. 

A. The rule that in the SAME AREA clause only one file may be 
open at one time takes precedence over the SAME RECORD AREA 
rule that all the files may be open at the same time. 

See the System Dependencies chapter. 
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Programming Notes 

Specification of the SAME AREA clause saves space in the object ff 
program; note^ houiever^ the restrictions Mhen it is used. \ j 

Specification of the SAME RECORD AREA clause does not 
necessarily save space in the object program. Because the 
input/output areas of named files are identicals and all &r^ 
available to the user^ this clause allows transfer of data from 
one file to another with minimal data manipulation. 

MULTIPLE FILE TAPE CLAUSE 

The MULTIPLE FILE TAPE clause is treated as documentation; it 
specifies that two or more files share the same physical reel of 
tape. For further information* see the System Dependencies 
chapter. 



/■ ■ >r 
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DATA DIVISION CONCEPTS 
FILE DESCRIPTION ENTRY 
DATA DESCRIPTION 




o 
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DATA DIVISION CONCEPTS 



EXTERNAL DATA 



Th6 Data Division of a COBOL source program describes all the 
data to be processed by the object program. Two types of data 
can be processed J external data and internal data. 



External data is contained in files or* in communications 
applications^ in messages. Messages are discussed in the 
Communications chapter; only files are discussed here. 

A f i le is a collection of data records existing on some 
input/output device. A file can be thought of as a group of 
physical records; it can also be thought of as a group of 
logical records. 

A physical record is a unit of data that is treated as an entity 
when moved into or out of auxiliary storage. The size of a 
physical record is determined by the particular input/output 
device on which it is stored. The size does not necessarily 
have a direct relationship to the size or content of the logical 
information contained in the file. 

A logical record is a unit of data whose subdivisions have a 
logical relationship. A logical record may itself be a physical 
record (that is> be contained completely on one physical unit of 
data); several logical records may be contained within one 
physical record, or one logical record may extend across 
physical records. 

Data Division source language describes the relationship between 
physical and logical records. 

The file description CFD) entry specifies the physical aspects 
of the data (such as the size relationship between physical and 
logical records, the size and name(s) of the logical record(s), 
labeling information, and so forth). See also, SD entry in the 
SORT/MERGE — Data Di vi si on secti on. 

Record description entries , which follow the FD entry for a 
specific file, describe the logical records in the file, 
including the category and format of data within each field of 
the logical record, different values the data might be assigned, 
and so forth. 

Once the relationship between physical and logical records has 
been established, only logical records are made available to the 
COBOL programmer. For this reason, unless the term "physical 
record(5)" is used, a reference in this manual to "records" 
means logical records. 






INTERNAL DATA 



The logic of the program may develop additional data within 
storage. Such data is called internal data. 

The concept of logical records applies to both internal data and 
external data. Internal data can, therefore, be grouped into 
logical records, and be defined by a series of record 
description entries. Items that need not be so grouped can be 
defined in independent data description entries. 
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DATA RELATIONSHIPS 



The relationships of all data to be used in a program are 
defined in the Data Division* through a system of level 
indicators and level-numbers. 




A level-number * together with its descriptive entry* indicates 
the properties of specific data. Level-numbers can be used to 
describe a data hierarchy; they can indicate that this data has 
a special purpose* and while they can be associated with — and 
subordinate to — level indicators* they can also be used 
independently to describe internal data or data common to two or 
more programs. The chapter on Data Description explains 
level-numbers. 



DATA DIVISION ORGANIZATION 



"">, 



The Data Division is divided into sections. Each has a specific 
logical function within a COBOL source program* and each may be 
omitted from the source program when that logical function is 
not needed. 

General Format— Data Division 

DATA DIVISION . 
[ FILE SECTION , 
[file-description entry 
[record-description entry] ... 3 ... ] 
[UIORKING-STORAGE SECTION. 



I data item description entry 

I 

I record-description entry 

L 



[ LINKAGE SECTION . 

data item description entry 1 

I 
record-description entry | 



[ COMMUNICATION SECTION , 
[communication description entry 
[record-description entry] ... ] 



] 



[ REPORT SECTION . 

[report description entry 

[report-group description entry] ... ] ... ] 



Ulhen written in the source program* the Data Division sections 
must appear in the order shown. 
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FILE SECTION 



The File Section contains a description of all externally stored 

data (FD), and a description of each sort-merge-f i le (SD) used X.^-J' 

in the program. 

The File Section must begin with the header FILE SECTION 
followed by a period. The File Section contains file 
description entries and sort-merge-f i le description entries, 
each one followed by its associated record description entry (or 
entries) . 



File Description Entries 



In a COBOL program, the File Description Entries (beginning with 
the level indicators FD and SD) represent the highest level of 
organization in the File Section. The file description entry 
provides information about the physical structure and 
identification of a file, and gives the record-name( s) 
associated with that file. For the format and the clauses 
required in a file description entry, see the File Description 
Entry chapter. 

For a complete discussion of the sort-file-description entry, 
see the chapter on the Sort/Merge feature. 



Record Description Entry 



The Record Description Entry consists of a set of data 
description entries which describe the particular record(s) 
contained within a particular file. For the format and the 
clauses required within the record description entry, see the 
Data Description chapter. 

More than one record description entry may be specified; each is , 

an alternative description of the same storage area. V^V 

Data areas described in the File Section should not be 
considered available for processing unless the file containing 
the data area is open. 



WORKING-STORAGE SECTION 



The Working-Storage Section may describe data records which are 
not part of external data files but are developed and processed 
i nternally . 

The Working-Storage Section contains record description entries 
and data description entries for independent data items. 

The Working-Storage Section must begin with the section header 
WORKING-STORAGE SECTION followed by a period. 



Record Description Entries 



Data entries in Working-Storage that have a definite hierarchic 
relationship to one another must be grouped into records 
structured by level number. 



Data Item Description Entry 



Independent items in Working-Storage that have no hierarchic 
relationship to one another need not be grouped into records, 
provided they do not need to be further subdivided. Instead, 
they are classified and defined as independent elementary items. 
Each is defined in a separate data item description entry that 
begins with the special level number 77. 



J 
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LINKAGE SECTION 



The Linkage Section describes data made available from another 
program. 

Record description entries and data item description entries in 
the Linkage Section provide names and descri pt i ons» but storage 
within the program is not reserved since the data area exists 
elsewhere. Any data description clause may be used to describe 
items in the Linkage Section^ with one exception- The VALUE 
clause may not be specified for other than level-88 items. 



For additional 
Linkage and on 



information* see the chapters on Subprogram 
System Dependencies. 



COMMUNICATION SECTION 



The Communication Section 
entries for input and for 
description entries. The 
the Communication Feature 



contains Communication Description 
output/ and optional record 
Communication Section is discussed in 
chapter. 



REPORT SECTION 



IBM Extension 



1 



The Report Section contains report description (RD) entries and 
report group description entries for every report named in the 
REPORT clause. The Report Section is discussed in the Report 
Writer chapter. 



L 



End of IBM Extension 



.V 
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FILE DESCRIPTION ENTRY 






In a COBOL program* the file description entry (FD) is the 
highest level of organization in the File Section. 

Format 1 — Physical Sequential Files 

FILE SECTION . 

FD file-name 

r CHARACTERS 1 
[ BLOCK CONTAINS Cinteger-1 T03 integer-2 < > ] 

I RECORDS I 

L J 

[ RECORD CONTAINS [integer-3 JO] i nteger-4 CHARACTERS] 

f RECORD IS 1 r STANDARD ] 

LABEL < > < > 

I RECORDS ARE I | OMITTED | 

L J L J 

I data-name-1 | 
[ VALUE OF system-name-l IS < > 

I literal-! | 

L J 

I data-name-2 j 
[ system-name-2 IS < >]...] 

I literal-2 J 

I RECORD IS 1 
[ DATA < > data-name-3 [data-name-^] ... 1 

I RECORDS ARE | 

L J 

j data-name-5 j 
[ LINAGE IS < > LINES 

I integei — 5 I 

L J 

I data-name-6 I 
[WITH FOOTING AT < > ] 

j integei — 6 j 

L J 

I data-name-7 | 
[LINES AT lOP < > ] 

j integei — 7 I 

j data-name-8 j 
[LINES AT BOTTOM < > ] 

I integei — 8 I 



..y 



\ REPORT IS 1 
[ < > report-name-1 [report-name-2] 

I REPORTS ARE | 



. ] 



[ CODE-SET IS alphabet-name]. 



\ 



y 
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Format 2 — VSAN Files (Sequential^ Indexed^ Relative) 

FILE SECTION . 
JFD file-name 

[ CHARACTERS 1 
[ BLOCK CONTAINS [integer-1 Ifl] integer-2 < > ] 

I RECORDS I 

L J 

[ RECORD CONTAINS [integer-3 JO] integer-^ CHARACTERS] 

I RECORD IS I r STANDARD 1 

LABEL < > < > 

i RECORDS ARE | I OMITTED | 

L J L J 

I data-name-1 | 
[VALUE OF system name-1 IS < > 

I literal-1 | 

L J 

j data-name-2 I 
[sy5tem-name-2 IS < >]...] 

I literal-2 I 



j RECORD IS I 
[DATA < > data-name-3 [data-name-^3 



I RECORDS ARE | 



The file description entry must begin with the level indicator 
FD followed by a space. 

The clauses which follow file-name are optional in many cases; 
the order of their appearance is not significant. 

The last clause in the FD entry must be immediately followed by 
a period followed by a space. 

One or more record description entries must follow the FD entry. 
When more than one record description entry is specif ied^ each 
entry implies a redefinition of the same storage area. 



IBM Extension j 



There is one exception to the preceding rule^ Ulhen the REPORT 
clause is specif ied» no record description entry need be 
speci f i ed. 

The DATA RECORDS clause and the REPORT clause may both be 
specified for the same FD entry. 

The LINAGE clause and the REPORT clause must not both be 
specified for the same FD entry. 



End of IBM Extension 
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FILE-NAME 



The file-name must follow the level indicator (FD)/ and must be /f^^ 
the same as that specified in the associated File Control entry, V # 

The file-name must follow the rules of formation for a 

usei — defined word; at least one character must be alphabetic. 

The file-name must be unique within this program. 



BLOCK CONTAINS CLAUSE 



CHARACTERS Option 



The BLOCK CONTAINS clause specifies the size of a physical 
record. 

When neither the CHARACTERS nor RECORDS option is specified, the 
CHARACTERS option is assumed. 

When the BLOCK CONTAINS clause is omitted, the compiler assumes 
that records are not blocked. The clause should be omitted if 
the records in the file are not blocked. Even if each physical 
record contains one and only one complete logical record, coding 
BLOCK CONTAINS 1 RECORD would result in fixed blocked records. 

The BLOCK CONTAINS clause can be omitted when the associated 
File Control entry specifies a VSAM file; the concept of 
blocking has no meaning for VSAM files and the clause will be 
treated as a comment. 

For all other types of files, the BLOCK CONTAINS clause is 
requi red. 

Integer-1 and integei — 2 must be nonzero unsigned integers. For 
use of BLOCK CONTAINS 0, see the System Dependencies chapter. 



The CHARACTERS option is the default option. ^^ 

When this option is specified or implied, the physical record 
size is specified as the number of character positions required 
to store the physical record, no matter what USAGE the 
characters within the data record have. 

If only integei — 2 is specified, it specifies the exact character 
size of the physical record. When integei — 1 and integei — 2 are 
both specified, they represent the minimum and maximum character 
size of the physical record, respectively. 

Integei — 1 and integer-2 must include any control bytes and 
padding (areas not contained within a logical record) contained 
in the physical record. 

The CHARACTERS option must be used when J 

• The physical record contains padding. 

• Logical records are grouped so that an inaccurate physical 
record size could be implied. (For example, if the user 
describes a variable-length record of 100 characters, yet 
each time writes a block of 4, one 50-character record is 
written followed by three 100-character records. If the 
RECORDS option was specified, the compiler would calculate 
the block size as 420 characters instead of the actual size, 
370 characters. This calculation includes block and record 
descri ptors. ) 

See the System Dependencies chapter. 
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RECORDS option 



When thi s opti on 
expressed as the 
physical record. 



is specified^ the physical record size is 
number of logical records contained in each 



The compiler assumes that the block size must provide for 
integei — 2 records of maximum size, and provides any additional 
space needed for control bytes. 



RECORD CONTAINS CLAUSE 



The RECORD CONTAINS clause specifies the size of a filers data 
records. 

The RECORD CONTAINS clause is never required, because the size 
of each record is completely defined in the record description 
entries. When this clause is specified, the following notes 
apply: 

• Intege? — 3 and integei — 4 must be unsigned integers. 

• When both integei — 3 and integei — 4 are specified, integer-3 
specifies the size of the smallest data record, and 
integei — 4 specifies the size of the largest data record. 

• Integei — 4 must not be specified alone unless all the records 
are the same size; in this case, integer-^ specifies the 
exact number of characters in the record. 

• The record size must be specified as the number of character 
positions needed to store the record internally; that is, in 
terms of the number of bytes occupied internally by its 
characters, regardless of the number of characters used to 
represent the item within the record. The size of a record 
is determined according to the rules for obtaining the size 
of a group item. (See the descriptions of the USAGE clause 
and of Slack Bytes for further information.) 

See the chapter on System Dependencies. 



Programming Notes 



When the RECORD CONTAINS clause is omitted, the record lengths 
are determined by the compiler from the record descriptions. 
When one of the entries within a record description contains an 
OCCURS DEPENDING ON clause, the compiler uses the maximum value 
of the variable length item to calculate the record length. 



LABEL RECORDS CLAUSE 



STANDARD Option 



The LABEL RECORDS clause specifies whether or not labels are 
present. 

The LABEL RECORDS clause is required in every FD entry. 



This option specifies that labels conforming to system 
specifications exist for this file. 

This option may be specified for files assigned to magnetic tape 
devices. It must be specified for sequential disk files. 



OMITTED option 



This option specifies that no labels exist for this file. 
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VSAM Considerations 



VALUE OF CLAUSE 



DATA RECORDS CLAUSE 



This option must be specified for files assigned to unit record 
devices. It may also be specified for files assigned to 
magnetic tape devices. 



For VSAM files, the LABEL RECORDS clause is treated as 
documentation. Label processing, therefore, is not performed. 



The VALUE OF clause serves only as documentation; it 
particularizes the description of an item in the label records 
associated with this file. 

The syntax of this clause is accepted by the compiler and 
treated as documentation. In this implementation, no specific 
system-names are provided. 



The DATA RECORDS clause serves only as documentation for the 
names of data records associated with this file. 

The specification of more than one data-name indicates that this 
file contains more than one type of data record, that is, two or 
more record descriptions for this file occupy the same storage 
area. These records need not have the same description or 
length. The order in which the data-names are listed is not 
si gni f i cant. 

Data-name-3 and data-name-4 are the names of record description 
entries associated with this file. 






The DATA RECORDS clause is never required. 



V,^' 



LINAGE CLAUSE 



The LINAGE clause specifies the depth of a logical page in terms 
of number of lines; optionally, it also specifies the line 
number at which the footing area begins, in addition to the top 
and bottom margins of the logical page. (Note that there is not 
necessarily a relationship between the logical page size and the 
physical page size.) 

The LINAGE clause may be specified only for physical sequential 
files, opened OUTPUT, or I-O. 



All integers must be unsigned, 
as unsigned integer data items. 



All data-names must be described 



LINAGE integer-5/data-name-5 



Integei — 5 or the value in data-name-5 specifies the number of 
lines that can be written and/or spaced on this logical page. 
The area of the page these lines represent is called the page 
body . The value must be greater than zero. 



WITH FOOTING Option 



Integei — 6 or the value in data-name-6 specifies the first line 
number of the footing area within the page body. The footing 
line number must be greater than zero, and not greater than thj 
last line of the page body. The footing area extends between 
those two lines. 



c 
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LINES AT TOP Option 



Integer-7 or the value in data-name-7 specifies the number of 
lines in the top margin of the logical page. The value may be 
zero. 



LINES AT BOTTOM Option 



Integer-8 or the value in data-name-8 specifies the number of 
lines in the bottom margin of the logical page. The value may 
be zero. 

Figure 7 illustrates the use of each option of the LINAGE 
clause. 



o 



r 

LINES AT TOP integer-7 (top margin) 

L 



page body 



logical 
page depth 



WITH FOOTING integer-6, 



LINAGE integer- 5 



footing area 



LINES AT BOTTOM integer-8 (bottom margin) 

[ 



Figure 7. LINAGE Clause and Logical Page Depth 



General Considerations 



The logical page size specified in the LINAGE clause is the sum 
of all values specified in each option except the FOOTING 
option. If the LINES AT TOP and/or the LINES AT BOTTOM option 
is omitted^ the assumed value is zero. Each logical page 
immediately follows the preceding logical page> with no 
additional spacing provided. 

If the FOOTING option is omitted* its assumed value is equal to 
that of the page body (integer-5 or data-name-5) . 

At the time an OPEN OUTPUT statement is executed, the values of 
integer-5, integei — 6, integei — 7, and integei — 8, if specified, 
are used to determine the page body, first footing line, top 
margin, and bottom margin of the logical page for this file. 
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These values are then used for all logical pages printed for 
this file during a given execution of the program. 

Data--name-5/ data-name-6, data-name-7, and data-name-8* if 
specified* cause the following actions to take placed 

• Their values at the time an OPEN OUTPUT statement is 
executed are used to determine the page body* the first 
footing line* the top margin* and the bottom margin for the 
first logical page only. 

• Their values at the time a WRITE ADVANCING statement causes 
page ejection are used to determine the page body* first 
footing line* top margin* and bottom margin for the next 
succeeding logical page only. 






LINAGE-COUNTER Special Register 



For each FD entry containing a LINAGE clause* a separate 
LINAGE-COUNTER special register is generated. When more than 
one is generated* the user must qualify each LINAGE-COUNTER with 
its related file-name. 

The implicit description of LINAGE-COUNTER is one of the 
following^ 

• If the LINAGE clause specifies data-name-1* LINAGE-COUNTER 
has the same PICTURE and USAGE as data-name-1. 

• If the LINAGE clause specifies integer-1, LINAGE-COUNTER is 
a binary item with the same number of digits as integei — 1. 

The value in LINAGE-COUNTER at any given time is the line number 
at which the device is positioned within the current page. 
LINAGE-COUNTER may be referred to in Procedure Division 
statements* it must not be modified by them. 

LINAGE-COUNTER is initialized to one when an OPEN statement for 
this file is executed. 

LINAGE-COUNTER is automatically modified by any WRITE statement 
for this file. (See WRITE Statement in the Input/Output 
Statements chapter for details.) 






REPORT CLAUSE 



CODE-SET CLAUSE 



IBM Extension 



1 



The REPORT clause specifies the names of any reports associated 
with this file. (The REPORT clause is described in the chapter 
on the Report Writer feature.) 

The LINAGE clause is not allowed with the REPORT clause. 

' End of IBM Extension ' 



The CODE-SET clause specifies the character code used to 
represent data on a magnetic tape file. When the CODE-SET 
clause is specified* alphabet-name identifies the character code 
convention used to represent data on the input/output device. 

Alphabet-name must be defined in the SPECIAL-NAMES paragraph as 
STANDARD-1 (for ASCII-encoded files)* or as NATIVE (for 
EBCDIC-encoded files). When NATIVE is specified* the compiler 
treats the CODE-SET clause as documentation. 
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The CODE-SET clause also specifies the algorithm for converting 
the character codes on the input/output medium from/to the 
internal EBCDIC character set. 

When the CODE-SET clause is specified^ all data in this file 
must have USAGE DISPLAY^ and* if signed numeric data is present* 
it must be described with the SIGN IS SEPARATE clause. 

When the CODE-SET clause is omitted, the EBCDIC character set is 
assumed for this file. The CODE-SET clause is valid only for 
magnetic tape files. 

Note: For ASCII considerations* see Appendix B. 



^|(*V 



o 
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DATA DESCRIPTION 



All of the data used in a COBOL program is described using a 
uniform system of representation. The basic concepts of data 
description are discussed in this chapter* as well as the actual 
COBOL clauses used to describe data. 



DATA DESCRIPTION CONCEPTS 



Most of the data processed by a COBOL program is presented in 
hierarchically arranged records. This is because most data must 
be divided into separate subdivisions for processing. 

For example, in a department store's customer file, one complete 
record could contain all data pertaining to one customer. 
Subdivisions within that record could beJ customer name, 
customer address, account number, department number of sale, 
unit amount of sale, dollar amount of sale, previous balance, 
plus other pertinent information. 

To subdivide these records, COBOL uses a hierarchic concept of 
levels. 






LEVEL CONCEPTS 



Because records must be divided into logical subdivisions, the 
concept of levels is inherent in the structure of a record. 
Once a record has been subdivided, it can be further subdivided 
to provide more detailed data references. 

The basic subdivisions of a record (that is, those fields not 
further subdivided) are called elementary items . Consequently, 
a record can be made up of a series of elementary items, or it 
may itself be an elementary item. 

It may be necessary to refer to a set of elementary items; 
therefore elementary items can be combined into group items . 
Groups themselves can be combined into a more inclusive group 
that contains two or more subgroups. Because of thi s, within 
one hierarchy of data items, an elementary item can belong to 
more than one group item. 






LEVEL-NUHBERS 



A system of level-numbers specifies the organization of 
elementary and group items into records. Special level-numbers 
are also used; they identify data items used for special 
purposes. 



Record Description Level-Numbers 



Each group and elementary item in a record requires a separate 
entry, and each must be assigned a level-number. The following 
level-numbers are used to structure records^ 



01 



02-^9 



This level-number specifies the record itself, and is the 
most inclusive level-number possible. A level-01 entry may 
be either a group item or an elementary item. 

I 

These level-numbers specify group and elementary items 
within a record. Less inclusive data items are assigned 
higher (not necessarily consecutive) level-numbers. 
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A group item includes all group and elementary items following 
it until a level-number less than or equal to the level-number 
of this group is encountered. 

All elementary or group items immediately subordinate to one 
group item must be assigned identical level-numbers higher than 
the level-number of this group item. 

Figure 8 illustrates the concept. Note that all groups 
immediately subordinate to the level-01 entry have the same 
level-number. Note also that elementary items from different 
subgroups do not necessarily have the same level number, and 
that elementary items can be specified at any level within the 
hi erarchy . 



The COBOL record-description entry 
written as follows 

01 RECORD-ENTRY. 

05 GROUP-1. 

10 SUB6R0UP-1. 

15 ELEM-1 PIC .... 
15 ELEM-2 PIC ... . 

10 SUBGROUP-2. 

15 ELEM-3 PIC ... . 
15 ELEM-^ PIC .... 

05 GROUP-2 

15 SUBGROUP-3. 

25 ELEM-5 PIC ... . 
25 ELEM-6 PIC ... . 



Is subdivided as 
indicated below: 

< this entry includes 

< this entry includes 1 

< this entry includes 1 



V 

< this entry includes 1 

I 

V V 

< this entry includes 

< this entry includes 1 



15 SUBGROUP-'t PIC ... . 

05 GROUP-3 PIC .... 

Its storage arrangement is illustrated below 

|< RECORD-ENTRY— 



I 

V 
this entry includes itself V 

this entry includes itself 



|< GROUP-1 > 

I 

I <— SUBGROUP-1 — > I <— SUBGROUP-2 — > 



< GROUP-2- 

<— SUBGROUP-3— >| 



•>l 



ELEM-1 


ELEri-2 


ELEM-3 


ELEM-4 


ELEM-5 


ELEM-6 


SUBGROUP-*!* 


GROUP-3 



Figure 8. Level-Number Concepts 
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Special Level-Numbers 



Special level-numbers identify items that do not structure a 
record. The special level-numbers are' 



\ y 



66 



77 



88 



Identifies elementary or group items described by a RENAMES 
clause; such items regroup previously-defined data items. 

CFor an example, see the RENAMES clause description.) 

Identifies independent Working-Storage or Linkage Section 
items which are not subdivisions of other items, and which 
are not themselves subdivided. 



Identifies any condition-name entry that is associated with 
a particular value of a conditional variable. 

(For an example, see the VALUE clause description.) 

Notei Level-77 and level-01 entries in the Working Storage 
Section and Linkage Section must be given unique data-names, 
since neither can be qualified. Subordinate data-names, if they 
can be qualified, need not be unique. 



Indentation 



Successive data description entries may begin in the same column 
as preceding entries, or may be indented according to 
level-number. Indentation is useful for documentation, but does 
not affect the action of the compiler. 



CLASSES OF DATA 



All data used in a COBOL program can be divided into three 
classes and five categories. Every elementary item in a program 
belongs to both one of the classes and one of the categories. 
Every group item belongs to the alphanumeric class, even if the 
subordinate elementary items belong to another class and 
category. Figure 9 shows the relationship of data classes and 
categori es. 






LEVEL OF ITEM 

Elementary 



Group 



CLASS 

Alphabeti c 
Numeri c 
Alphanumeri c 

Alphanumeri c 



CATEGORY 

Alphabeti c 

Numeri c 

Numeric Edited 
Alphanumeric Edited 
Alphanumeri c 

Alphabetic 
Numeri c 

Numeric Edited 
Alphanumeric Edited 
Alphanumeri c 



Figure 9. Classes and Categories of Data 



Standard Alignment Rules 



The Standard Alignment rules for positioning data in an 
elementary item depend on the data category of the receiving 
item (that is, the item into which the data is placed). 






J 



66 IBM VS COBOL for OS/VS 






NUMERIC ITEMS5 For such receiving items^ the following rules 

• The data is aligned on the assumed decimal point and* if 
necessary, truncated or padded with zeros. (An assumed 
decimal point is one that has logical meaning but that does 
not exist as an actual character in the data.) 

• If an assumed decimal point is not explicitly specified* the 
receiving item is treated as though an assumed decimal point 
is specified immediately to the right of the field. The 
data is then treated as in the preceding rule. 

NUMERIC EDITED ITEMS'. The data is aligned on the decimal point, 
and (if necessary) truncated or padded with zeros at either end, 
except when editing causes replacement of leading zeros. 

ALPHANUMERIC, ALPHANUMERIC EDITED, ALPHABETIC: For these data 
categories, the following rules apply: 

• The data is aligned at the leftmost character position, and 
(if necessary) truncated or padded with spaces at the right. 

• If the JUSTIFIED clause is specified for this receiving 
item, the above rule is modified as described in the 
JUSTIFIED clause. 



Standard Data Format 






COBOL makes data description as machine independent as possible. 
For this reason, the properties of the data are described in 
relation to a standard data format rather than a 
machine-oriented format. 

The standard data format uses the decimal system to represent 
numbers, no matter what base is used by the system, and uses the 
remaining characters of the COBOL character set to describe 
nonnumeric data. 



Character-String and item size 



In COBOL, the size of an elementary item is determined through 
the number of character positions specified in its PICTURE 
charactei — string. In storage, however, the size is determined 
by the actual number of bytes the item occupies, as determined 
by the combination of its PICTURE character-string and its USAGE 
clause. 

Usually, when an arithmetic item is moved from a longer field 
into a shorter one, this compiler truncates the data to the 
number of characters represented in the shorter item's PICTURE 
charactei — stri ng. 

For example, if a sending field with PICTURE S99999, and 
containing the value +12345, is moved to a COMPUTATIONAL 
(binary) receiving field with PICTURE S99, the data is truncated 
to +45. 

I IBM Extension 1 

However, this IBM implementation, as a compile-time option, may 
be instructed in such an operation to truncate only those digits 
that will overflow the receiving field. When this option is 
used, the result obtained in the preceding example is +2345, 
because a 2-byte COMPUTATIONAL item can contain the equivalent 
of four decimal digits of data. Note that care must be used 
when using this option, because there are times when the data 
may contain a negative sign. 



End of IBM Extension ' 
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SIGNED DATA 



There are two categories of algebraic signs used in COBOL J 
operational signs and editing signs. 



Operational Signs 



Operational signs are associated with signed numeric items» and 
indicate their algebraic properties. The internal 
representation of an algebraic sign depends on the 
clause^ and optionally upon its SIGN clause. Zero 
a unique valuer regardless of the operational sign 
field is always assumed to be positive or zero. 



item's USAGE 
is considered 
An unsigned 



Editing signs 



Editing signs are associated with numeric edited items; editing 
signs are PICTURE symbols that identify the sign of the item in 
edited output. 



DATA DESCRIPTION ENTRY 



A data description entry specifies the characteristics of a 
particular data item. 

General Format 1 

I data-name I 
level-number < > clause 

I FILLER 1 

L J 

[REDEFINES clause] 

[BLANK WHEN ZERO clause] 

[JUSTIFIED clause] 

[OCCURS clause] 

[PICTURE clause] 

[SIGN clause] 

[SYNCHRONIZED clause] 

[USAGE clause] 

[VALUE clause]. 

General Format 2 

66 data-name-1 RENAMES clause. 

General Format 3 

S& condition-name VALUE clause. 

The maxhmum length for a fixed-length Working-Storage or Linkage 
Section entry is 131071 bytes. The maximum length for all other 
entries is 32767 bytes. 






^Ljj/ 
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GENERAL FORMAT 1 



This format is used for record description entries in all Data 
Division sections* and for level-77 entries in the 
Working-Storage and Linkage Sections. The following rules 
applyJ 

• The level-number can be anv number from 01 through ^9, or 
77. Level-numbers 01 through 09 can be written as 1 through 
9. 

• The clauses may be written in any order* with two 
excepti ons^ 

— The data-name/FILLER entry must immediately follow the 
level-number. 

— When specified* the REDEFINES clause must immediately 
follow the data-name clause. 

• The PICTURE clause must be specified for every elementary 
item except index data items. (Index data items are 
discussed in the Table Handling chapter.) 

• The BLANK WHEN ZERO, JUSTIFIED* PICTURE, and SYNCHRONIZED 
clauses are only valid for elementary items. 

• A space* or a comma or semicolon followed by a space* must 
separate clauses. 

• Each entry must end with a period followed by a space. 



GENERAL FORMAT 2 



GENERAL FORMAT 3 



This format regroups previously-defined items. The following 
rules applyJ 

• A level-66 entry can neither rename another level-66 entry* 
nor can it rename a level-01* level-77* or level-88 entry. 

• All level-66 entries associated with one record must 
immediately follow the last data description entry in that 
record. 

• The entry must end with a period followed by a space. 

Additional details are given in the description of the RENAMES 
Clause. 



This format describes condition-names. 

A condi t i on- name is a usei — specified name that associates 
value(s) and/or range(s) of values with a conditional variable, 

A conditional variable is a data item that can assume one or 
more values* which can in turn be associated with a 
condi ti on- name. 



The following rules for condition-name entries apply? 

• Any entry beginning with level-number 88 i s a condition-name 
entry. 

• The condition-name entries associated with a particular 
conditional variable must immediately follow the conditional 
variable entry. The conditional variable can be any 
elementary data description entry except another 
condition-name or an index data item. 
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LEVEL-NUMBER 



• A condition-name can be associated with a group item data 
description entry* in this case J / 

— The condition-name value must be specified as a * 
nonnumeric literal or figurative constant. 

— The size of the condition-name value must not exceed the 
sum of the sizes of all the elementary items within the 
group. 

— No element within the group may contain a JUSTIFIED or 
SYNCHRONIZED clause. 

No USAGE other than USAGE IS DISPLAY may be specified 
within the group. 

• Condition-names can be specified both at the group level and 
at subordinate levels within the group. 

• The relation test implied by the definition of a 
condition-name at the group level is performed in accordance 
with the rules for comparison of nonnumeric operands 
regardless of the nature of elementary items within the 
group. 

• A space* or a comma or semicolon followed by a space* must 
separate successive operands. 

• Each entry must end with a period followed by a space. 

Examples of both elementary and group condition-name entries are 
given in the description of the VALUE clause. 



The level-number specifies the hierarchy of data within a ( i 

record* and also identifies special-purpose data entries. V.^^ 

Format 

level-number 

The following rules for level-numbers applyJ 

• A level-number begins a data description entry* a renamed or 
redefined item* or a condition-name entry. 

• Level-numbers 01 and 77 must begin in Area A followed by a 
space. 

• Level-numbers 02 through 49* 66* and 88 may begin in either 
Area A or Area B and must be followed by a space. 

• Single-digit level-numbers 1 through 9 may be substituted 
for level-numbers 01 through 09. 

See also the description of level-numbers in the Data 
Description Concepts section* and the description of Data 
Division Entries in the chapter on Standard COBOL Format. 



^j 
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DATA-NAME/FILLER CLAUSE 



A data-name explicitly identifies the data being described; the 
key word FILLER specifies an item that is not explicitly 
referred to i n a program. 

Format 

I data-name | 
< > 

I FILLER I 

L J 

In a data description entry^ a data-name or the key word FILLER 
must be the first word following the level-number. 



IBM Extension 



See the data-name clause description in the Report Writer 
chapter for the one exception to this rule. 



End of IBM Extension 



A data-name identifies a data item used in the program. The 
data item may assume a number of different values during program 
executi on. 

The key word FILLER specifies an elementary item in a record 
that is never explicitly referred to. 



IBM Extension 



However^ this IBM implementation allows a FILLER item to be a 
group item. 



'\ I End of IBM Extension 



.J^ 



REDEFINES CLAUSE 



Under no circumstances may a FILLER item be explicitly referred 
to. 

The key word FILLER may be used with a conditional variable* if 
explicit reference is never made to the conditional variable but 
only to values it may assume. 

In a MOVE CORRESPONDING statement, or in an ADD CORRESPONDING or 
SUBTRACT CORRESPONDING statement, FILLER items are ignored. 



The REDEFINES clause describes the same storage srea as capable 
of containing different data items. 

Format 

level-number data-name-1 REDEFINES data-name-2 

Note: level-number and data-name-1 are not part of the 
REDEFINES clause itself, and are only included in the format for 
clari ty. 

When specified, the REDEFINES clause must be the first entry 
following data-name-1. 

The level-numbers of data-name-1 and data-name-2 must be 
identical, and must not be level 66 or level 88. 

Data-name-2 is the redefined item . 

Data-name-1 identifies an alternate description for the same 
area, or the redefining item . 
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Implicit redefinition is assumed when more than one level-01 

entry subordinate to an FD Entry or CD Entry is written. In ^""^ 

such level-01 entries* the REDEFINES clause must not be n 

specified. ''i.._y 

Redefinition begins at data-name-1 and ends when a level-number 
less than or equal to that of data-name-2 is encountered. No 
entry having a level-number numerically lower than those of 
data-name-1 and data-name-2 may occur between these entries. 
For example: 

05 A PICTURE X(6). 
05 B REDEFINES A. 

10 B-1 PICTURE X(2). 

10 B-2 PICTURE 9(4). 
05 C PICTURE 99V99. 

In this example* A is the redefined item* and B is the 
redefining item. Redefinition begins with B and includes the 
two subordinate items B-1 and B-2. Redefinition ends when the 
level-05 item C is encountered. 

The data description entry for data-name-2» the redefined item* 
cannot contain a REDEFINES clause or an OCCURS clause (with or 
without the DEPENDING ON option). However* the redefined item 
may itself be subordinate to an item that contains either 
clause. If the redefined item is subordinate to an OCCURS 
clause* data-name-2 in the REDEFINES clause (the redefined item) 
must not be subscripted or indexed. 

Neither the redefined item nor the redefining item* or any items 
subordinate to them* can contain an OCCURS DEPENDING ON clause. 

Ulhen data-name-1* the redefining item* is specified with a 
level-number other than 01* it must specify a storage area of 
the same size as the redefined item data-name-2. 

Multiple redefinitions of the same storage area are permitted. V-^ 
The entries giving the new descriptions of the storage area must 
immediately follow the description of the redefined area without 
intervening entries that define new character positions. 
Multiple redefinitions must all use the data-name of the 
original entry that defined this storage area. For example^ 

05 A PICTURE 9999. 

05 B REDEFINES A PICTURE 9V999. 

05 C REDEFINES A PICTURE 99V99. 

The redefining entry (identified by data-name-1) * and any 
subordinate entries* must not contain any VALUE clauses. This 
rule does not apply to condition-name entries. 



General Considerations 



Data items within an area can be redefined without their lengths 
being changed. For example^ 

05 NAME-2. 

10 SALARY PICTURE XXX. 

10 SO-SEC-NO PICTURE X(9). 

10 MONTH PICTURE XX. 
05 NAME-1 REDEFINES NAME-2. 

10 WAGE PICTURE XXX. 

10 EMP-NO PICTURE X(9). 

10 YEAR PICTURE XX. 

Data items can also be rearranged within an area. For example: 

05 HAME-2. 

10 SALARY PICTURE XXX. d'~^. 

10 SO-SEC-NO PICTURE X(9). | 

10 MONTH PICTURE XX. X„> 

05 NAME-1 REDEFINES NAME-2. 
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10 EMP-NO PICTURE X(6). 
10 WAGE PICTURE 999V999. 
10 YEAR PICTURE XX. 

t4hen an area is redefined* all descriptions of the area are 
always in effect; that is* redefinition does not cause any data 
to be erased and never supersedes a previous description. 
Therefore, if B REDEFINES C has been specified, either of the 
two procedural statements MOVE X TO B and MOVE Y TO C could be 
executed at any point in the program. 

In the first case* the area described as B would assume the 
value of X. In the second case* the same physical area 
(described now as C) would assume the value of Y. Notice that* 
if the second statement is executed immediately after the first* 
the value of Y replaces the value of X i n the one storage area. 

The usage of a redefining data item need not be the same as that 
of a redefined item. This does not* however* cause any change 
in existing data. For example : 

05 B PICTURE 99 USAGE DISPLAY VALUE 8. 

05 C REDEFINES B PICTURE S99 USAGE COMPUTATIONAL. 
05 A PICTURE S99 USAGE COMPUTATIONAL. 

The bit configuration of the DISPLAY value 8 is 
1111 0000 1111 1000. Redefining B does not change the bit 
configuration of the data in the storage area. Therefore* the 
two statements* ADD B TO A and ADD C TO A give different 
results. In the first case* the value 8 is added to A (because 
B has USAGE DISPLAY). In the second statement* the value -48 is 
added to A (because C has USAGE COMPUTATIONAL) and the bit 
configuration (truncated to 2 decimal digits) in the storage 
area has the binary value -48. 

Unexpected results may occur when a redefining item is moved to 
a redefined item (that is* if B REDEFINES C and the statement 
MOVE B TO C i s executed). Unexpected results may also occur 
when a redefined item is moved to a redefining item (as* from 
the previous example* if the statement MOVE C TO B is executed). 

The REDEFINES clause may be specified for an item within the 
scope of an area being redefined (that is* an item subordinate 
to a redefined item). For example: 

05 REGULAR-EMPLOYEE. 

10 LOCATION PICTURE A(8). 
10 GRADE PICTURE X(4). 
10 SEMI-MONTHLY-PAY PICTURE 9999V99. 
10 WEEKLY-PAY REDEFINES SEMI-MONTHLY-PAY 
PICTURE 999V999. 

05 TEMPORARY-EMPLOYEE REDEFINES REGULAR-EMPLOYEE. 
10 LOCATION PICTURE A(8). 
10 FILLER PICTURE X(6). 
10 HOURLY-PAY PICTURE 99V99. 

The REDEFINES clause may also be specified for an item 
subordinate to a redefining item. For example- 
OS REGULAR-EMPLOYEE. 

10 LOCATION PICTURE A(8). 

10 GRADE PICTURE X(4). 

10 SEMI-MONTHLY-PAY PICTURE 999V999. 

05 TEMPORARY-EMPLOYEE REDEFINES REGULAR-EMPLOYEE. 
10 LOCATION PICTURE A(8). 
10 FILLER PICTURE X(6). 
10 HOURLY-PAY PICTURE 99V99. 
10 CODE-H REDEFINES HOURLY-PAY PICTURE 9999. 
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BLANK UHEN ZERO CLAUSE 



JUSTIFIED CLAUSE 



The BLANK WHEN ZERO clause specifies that an item i s to be 
filled entirely with spaces when its value is zero. 

Format 

BLANK WHEN ZERO 

The BLANK WHEN ZERO clause may be specified only for elementary 
numeric or numeric edited items. When it is specified for a 
numeric item> the item is considered to be a numeric edited 
item. 

If the BLANK WHEN ZERO clause is specified, the item contains 
nothing but spaces when its value is zero. 

The BLANK WHEN ZERO clause must not be specified for level-66 or 
level-88 items. 

The BLANK WHEN ZERO clause and the asterisk (X) as a suppression 
symbol must not be specified for the same entry. 



The JUSTIFIED clause overrides standard positioning rules for a 
receiving item of the alphabetic or alphanumeric categories. 

Format 



r JUSTIFIED 1 
< > 

I JUST I 



RIGHT 



The JUSTIFIED clause may be specified only at the elementary 
level. JUST is an abbreviation for JUSTIFIED, and has the same 
meaning. 

The JUSTIFIED clause must not be specified for a numeric item, 
or for any item for which editing is specified. 

When the JUSTIFIED clause is specified for a receiving item, the 
data is aligned at the rightmost character position in the 
receiving item, and' 

• If the sending item is larger than the receiving item, the 
leftmost characters are truncated. 

• If the sending item is smaller than the receiving item, the 
unused character positions at the left are filled with 
spaces. 

When the JUSTIFIED clause is omitted, the rules for standard 
alignment are followed (see Standard Alignment Rules in the Data 
Description Concepts section). 

The JUSTIFIED clause must not be specified with level-66 
(RENAMES) and level-88 (condition-name) entries. 






OCCURS CLAUSE 



PICTURE CLAUSE 



The OCCURS clause specifies tables whose elements can be 
referred to by indexing or subscripting. It is described in the 
chapter on Table Handling. ^ . ^ 

The PICTURE clause specifies the general characteristics and 
editing requirements of an elementary item. 



o 
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Format 



o 



r PICTURE 1 



< > IS charactei — string 

I PIC I 

L J 

The PICTURE clause must be specified for every elementary item 
except an index data item. The PICTURE clause may be specified 
only at the elementary level. PIC is an abbreviation for 
PICTURE and has the same meaning. 

The character-string is made up of certain COBOL characters used 
as symbols. The allouable combinations determine the category 
of the data i tem. 

The charactei — string may contain a maximum of 30 characters. 



Symbols Used in the PICTURE Clause 






\J 



The functions of each PICTURE clause symbol are defined in the 
following list; more detailed explanations are given in the 
following sections. Any punctuation character appearing within 
the PICTURE charactei — string is not considered a punctuation 
character* but rather as a PICTURE charactei — string symbol. 

A Each A in the character string represents a character 

position that can contain only a letter of the 
alphabet or a space. 

B Each B in the character string represents a character 

position into which the space character will be 
i nserted. 

P The P indicates an assumed decimal scaling position, 

and is used to specify the location of an assumed 
decimal point when the point is not within the number 
which appears in the data item. The scaling position 
character P is not counted in the size of the data 
item. Scaling position characters are counted in 
determining the maximum number of digit positions 
(18) in numeric edited items or in items that appear 
as arithmetic operands. In any operation converting 
data from one form of internal representation to 
another, if the item being converted is described 
with the PICTURE symbol P, each digit position 
described by a P is considered to contain the value 
zero, and the size of the item is considered to 
include these zero digit positions. 

For example, PICTURE PPP99 DISPLAY defines a 
2-character item whose value may range from .00001 
through .00099, or zero; while 99PPP DISPLAY defines 
a 2-character item whose value may range from 1000 
through 99000, or zero. 

The scaling position character P may appear only to 
the left or right of the other characters in the 
string as a continuous string of Ps within a PICTURE 
description. The sign character S and the assumed 
decimal point V are the only characters which may 
appear to the left of a leftmost string of Ps. 
Because the scaling position character P implies an 
assumed decimal point (to the left of the Ps if the 
Ps are leftmost PICTURE characters and to the right 
of the Ps if the Ps are rightmost PICTURE 
characters), the assumed decimal point symbol V is 
redundant as either the leftmost or rightmost 
character within such a PICTURE description. 

S The symbol S is used in a PICTURE character string to 

indicate the presence (but not the representation 

Data Description 75 



noPf necessarily^ the position) of an operational 

sign, and must be written as the leftmost character ^^ 

in the PICTURE string. An operational sign indicates 4 

whether the value of an item involved in an operation v^ „■* 

is positive or negative. The symbol S is not counted 

in determining the size of the elementary item, 

unless an associated SIGN clause specifies the 

SEPARATE CHARACTER option. 

V The V is used in a character string to indicate the 

location of the assumed decimal point and may appear 
only once in a character string. The V does not 
represent a character position and, therefore, is not 
counted in the size of the elementary item, Ulhen the 
assumed decimal point is to the right of the 
rightmost symbol in the string, the V is redundant. 

X Each X in the character string represents a character 

position which may contain any allowable character 
from the EBCDIC set, 

Z Each Z in the character string represents a leading 

numeric character position; when that position 
contains a zero, the zero is replaced by a space 
character. Each Z is counted in the size of the 
item. 

9 Each 9 in the character string represents a character 

position that contains a numeral and is counted in 
the size of the item. 

Each zero in the character string represents a 

character position into which the numeral zero will 
be inserted. Each zero is counted in the size of the 
item. 

/ Each stroke (/) in the character-string represents a a N 

character position into which the stroke character V^^ 

will be inserted. Each stroke is counted in the size 
of the item. 

, Each comma in the character string represents a 

character position into which a comma will be 
inserted. This character is counted in the size of 
the item. The comma insertion character cannot be 
the last character in the PICTURE character string. 

When a period appears in the character string, it is 
an editing symbol that represents the decimal point 
for alignment purposes. In addition, it represents a 
character position into which a period will be 
inserted. This character is counted in the size of 
the item. The period insertion character cannot be 
the last character in the PICTURE character string. 

Note: For a given program, the functions of the 
period and comma are exchanged i f the clause 
DECIMAL-POINT IS COMMA is specified in the 
SPECIAL-NAMES paragraph. In this exchange, the rules 
for the period apply to the comma and the rules for 
the comma apply to the period wherever they appear in 
a PICTURE clause. 

+,-,CR,DB These symbols are used as editing sign control 

symbols. When used, each represents the character 
position into which the editing sign control symbol 
will be placed. The symbols are mutually exclusive 
in one character string. Each character used in the 
symbol is counted in determining the size of the data 
i t em . 

X Each asterisk (check protect symbol) in the character (I ? 

string represents a leading numeric character \.^ 

position into which an asterisk will be placed when 
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that position contains a zero. Each asterisk (><) is 
counted in the size of the item. 

The currency symbol in the character string 
represents a character position into which a currency 
symbol is to be placed. The currency symbol in a 
character string is represented either by the symbol 
$ or by the single character specified in the 
CURRENCY SIGN clause in the SPECIAL-NAMES paragraph 
of the Environment Division. The currency symbol is 
counted in the size of the item. 

Figure 10 gives the order in uihich PICTURE clause 
symbols must be specified. 
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Non-Floating 
Insertion Symbols 


Floating 
Insertion Symbols 


other Symbols 


SECOND ^^. 
SYMBOL ^\^ 


B 





/ 


f 


• 


{!} 


{!) 


rCR| 
iDBl 


$ 




\*f 


{!} 


l-J 


$ 


$ 


9 


A 
X 


s 


V 


p 


p 


NON-FLOATING 

INSERTION 

SYMBOLS 


B 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 





X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 


/ 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 


X 




X 




X 


/ 


X 


X 


X 


X 


X 


X 






X 


X 


X 


X 


X 


X 


X 


X 






X 




X 


• 


X 


X 


X 


X 




X 






X 


X 




X 




X 




X 












(!) 












































{!} 


X 


X 


X 


X 


X 








X 


X 


X 






X 


X 


X 






X 


X 


X 


rCRi 
bBl 


X 


X 


X 


X 


X 








X 


X 


X 






X 


X 


X 






X 


X 


X 


$ 












X 
































$ is the default value for the currency symbol. 

At least one of the symbols A, X, Z, 9, or * , or at least two of the symbols +, 
-, or $ must be present in a PICTURE string. 

An X at an intersection indicates that the symbol (s) at the top of the column 
may, in a given character-string, appear anywhere to the left of the symbol (s) 
at the left of the row. 

Non-floating insertion symbols + and -, floating insertion symbols Z, *, +, -, 
and $ and other symbol P appear twice in the above PICTURE character precedence 
table. The leftmost column and uppermost row for each symbol represents its use 
to the left of the decimal point position. The second appearance of the symbol 
in the table represents its use to the right of the decimal point position. 

Braces ( { |) indicate items that are mutually exclusive. 



Figure 10 (Part 1 of 3). PICTURE Clause Symbol Order 



Data Description 77 



^\ FIRST 
^\. SYMBOL 


Non-Floating 
Insertion Symbols 


Floating 
Insertion Symbols 


other Symbols 


SECOND ^\^ 
SYMBOL ^\^ 


B 





/ 


/ 


• 


t-l 


{!} 


fCR\ 
IDB' 


$ 


I*/ 


i*; 


l-J 


1!} 


$ 


$ 


9 


A 
X 


S 


V 


p 


p 


FLOATING 

INSERTION 

SYMBOLS 


1*1 


X 


X 


X 


X 




X 






X 


X 
























ii) 


X 


X 


X 


X 


X 


X 






X 


X 


X 
















X 




X 


(!l 


X 


X 


X 


X 










X 






X 




















{!} 


X 


X 


X 


X 


X 








X 






X 


X 












X 




X 


$ 


X 


X 


X 


X 




X 
















X 
















$ 


X 


X 


X 


X 


X 


X 
















X 


X 








X 




X 


$ is the default value for the currency symbol. 

At least one of the symbols A, X, Z, 9, or * , or at least two of the symbols +, 
-, or $ must be present in a PICTURE string. 

An X at an intersection indicates that the symbol (s) at the top of the column 
may, in a given character-string, appear anywhere to the left of the symbol (s) 
at the left of the row. 

Non-floating insertion symbols + and -, floating insertion symbols Z, *, +, -, 
and $ and other symbol P appear twice in the above PICTURE character precedence 
table. The leftmost column and uppermost row for each symbol represents its use 
to the left of the decimal point position. The second appearance of the symbol 
in the table represents its use to the right of the decimal point position. 

Braces ({}) indicate items that are mutually exclusive. 









Figure 10 (Part 2 of 3). PICTURE Clause Symbol Order 
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$ is the default value for the currency symbol. 

At least one of the symbols A, X, Z, 9, or *, or at least two of the symbols +, 
-, or $ must be present in a PICTURE string. 

An X at an intersection indicates that the symbol (s) at the top of the column 
may, in a given character-string, appear anywhere to the left of the symbol (s) 
at the left of the row. 

Non-floating insertion symbols + and -, floating insertion symbols Z, *, +, -, 
and $ and other symbol P appear twice in the above PICTURE character precedence 
table. The leftmost column and uppermost row for each symbol represents its use 
to the left of the decimal point position. The second appearance of the symbol 
in the table represents its use to the right of the decimal point position. 

Braces ({|) indicate items that are mutually exclusive. 



Figure 10 (Part 3 of 3). PICTURE Clause Symbol Order 






Character-String Representation 



The following symbols may appear more than once in one PICTURE 
charactei — stri ng 



B P X Z 



+ 



Each time one of these symbols appears in the charactei — string* 
it represents an occurrence of that character or set of 
allowable characters in the data item. 

An integer enclosed in parentheses immediately following any of 
these symbols specifies the number of consecutive occurrences of 
that symbol (a maximum of 32767). 

For example, the following two PICTURE clause specifications are 
equi valent ' 

PICTURE IS $99999. 99CR 

PICTURE IS $9(5).99CR 
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The following symbols may each appear only once in one PICTURE 
charactei — string^ ^,-^^ 

S V . CR DB i,_> 



Data categories and PICTURE Considerations 



The allowable combinations of PICTURE symbols determine the data 
category of the item. Rules for each category follow. 

ALPHABETIC ITEMS: The following rules apply: 

• The PICTURE charactei — string can contain only the symbols A 
and B. 

• The contents of the item in standard data format must 
consist of any of the 26 letters of the English alphabet and 
the space character. 

• USAGE DISPLAY must be specified or implied. 

• Any associated VALUE clause must specify a nonnumeric 
1 i teral . 

NUMERIC ITEMS: The following rules apply: 

• The PICTURE charactei — string can contain only the symbols 9» 
P, S, and V. 

• The number of digit positions must range from 1 through 18» 
i nclusi ve. 

• The contents of the item in standard data format must 
contain a combination of the 10 Arabic numerals* and» if 
signed, a representation of the operational sign, 

• The USAGE of the item can be DISPLAY or COMPUTATIONAL. \_y 



IBM Extension 



This IBM implementation also allows the USAGE to be 
COMPUTATIONAL-3 or COMPUTATIONAL-^. 



End of IBM Extension 



If a VALUE clause is specified for an elementary numeric item* 
the literal must be numeric. If a VALUE clause is specified for 
a group item consisting of elementary numeric items, the group 
is considered alphanumeric, and the literal must therefore be 
nonnumeric. The literal is treated exactly as specified; no 
editing is performed. Examples of numeric items are shown in 
Figure 11. 



PICTURE valid Range of Values 

9999 through 9999 
S99 -99 through +99 
S999V9 -999.9 through +999.9 
PPP999 through ,000999 
S999PPP -1000 through -999000 and 

+1000 through +999000 or zero 

Figure 11. Examples of Numeric Items 



Notes: 

1. ASCII considerations are given in Appendix B, 
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Z. Sy5tGm/360 and System/370 architecture do not support packed 
negative zero representation. Therefore, zero must be plus 
zero or zero; negative zero is not supported by this 
compi ler . 

ALPHANUMERIC ITEMS: The following rules apply for the 
alphanumeric category: 

• The PICTURE character-string must consist of either: 

— Entirely the symbol X» or 

— Combinations of the symbols A, X, and 9. (A 
charactei — string containing all As or all 9s does not 
define an alphanumeric item.) 

The item is treated as if the charactei — string contained only 
the symbol X. 

• The contents of the item in standard data format may be any 
alloNable characters from the EBCDIC character set. 

• USAGE DISPLAY must be specified or implied. 

• Any associated VALUE clause must specify a nonnumeric 
1 i teral . 

ALPHANUMERIC EDITED ITEMS: The following rules apply: 

• The PICTURE charactei — string can contain the following 
symbols: 



The string must contain at least one of the following 
combi nat i ons: 

— At least one B and at least one X 

— At least one and at least one X 

— At least one X and at least one / 

— At least one A and at least one 

— At least one A and at least one / 

• The contents of the item in standard data format may be any 
allowable character from the EBCDIC character set. 

• USAGE DISPLAY must be specified or implied. 

• Any associated VALUE clause must specify a nonnumeric 
literal. The literal is treated exactly as specified; no 
editing is performed. 

NUMERIC EDITED ITEMS: The following rules apply: 

• The PICTURE charactei — string can contain the following 
symbols: 

BPVZ90/,. + -CRDBX$ 

The combinations of symbols allowed are determined from the 
PICTURE clause symbol order allowed (see Figure 10), and the 
editing rules (see following section). The following 
additional rules also apply: 

— The string must contain at least one of the following 
symbols: 

B/ZO,.X + -CRDB 
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The number of digit positions represented in the 
character-string must be in the range of 1 through 18, /^ \ 
inclusive. f 



- The total number of character positions in the string 
(including editing characters) must not exceed 127. 

The contents of those character positions representing 
digits in standard data format must be one of the 10 Arabic 
numerals. 

USAGE DISPLAY must be specified or implied. 

Any associated VALUE clause must specify a nonnumeric 
literal. The literal is treated exactly as specified; no 
editing is performed. 



PICTURE Clause Editing 



Each insertion symbol is counted in the size of the item» and 
represents the position within the item where the equivalent 
characters will be inserted. 

Examples of simple insertion editing are shown in Figure 14. 
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There are two general methods of performing editing in a PICTURE 
clause! by insertion or by suppression and replacement. 

There are four types of insertion editing ^ simple insertion, 
special insertion, fixed insertion, and floating insertion. 
There are two types of suppression and replacement editing ^ zero 
suppression and replacement with asterisks. 

The type of editing allowed for an item depends on its data 
category. Figure 12 shows which type of editing is valid for 
each category. 



Category Type of Editing 

Alphabetic Simple insertion / ^ 

Numeric None V^ 

Alphanumeric None 

Alphanumeric Edited Simple insertion 

Numeric Edited All 

Each type of editing is discussed in detail in the following 
paragraphs. 

Figure 12. Valid Editing for Each Data Category 



SIMPLE INSERTION EDITING: This type of editing is valid for 
alphabetic, alphanumeric edited, and numeric edited items. The 
valid insertion symbols for each category are shown in 
Figure 13. 



Category Valid insertion Symbols 

Alphabetic B 

Alphanumeric Edited BO/ 
Numeric Edited BO/, 

Figure 13. Valid Simple Insertion Characters 



^Ks^ 



o 



PICTURE Value of Data Edited Result 

X(10)/XX ALPHANUMEROl ALPHANUMER/01 

X(5)BX(7) ALPHANUMERIC ALPHA NUMERIC 

A(5)BA(5) ALPHABETIC ALPHA BETIC 

99,B999,B000 1234 01, 234, 000 

99,999 12345 12,345 

Figure 14. Examples of Simple Insertion Editing 



SPECIAL INSERTION EDITING: This type of editing is only valid 
for numeric edited items. 

The period (.) is the special insertion symbol; it also 
represents the actual decimal point for alignment purposes. 

The period insertion symbol is counted in the size of the item, 
and represents the position within the item where the actual 
decimal point will be inserted. 

The actual decimal point and the symbol V as the assumed decimal 
point must not both be specified in one PICTURE 
charactei — string. 

Examples of special insertion editing are shown in Figure 15. 



PICTURE Value of Data Edited Results 

999.99 1.234 001.23 
999.99 12.34 012.34 

999.99 123.45 123.45 

999.99 1234.5 234.50 

Figure 15. Examples of Special Insertion Editing 



FIXED INSERTION EDITING: This type of editing is valid only for 
numeric edited items. The following insertion symbols are used: 

$ (currency symbol) 

+-CR DB (editing sign control symbols) 

• In fixed insertion editing, only one currency symbol and one 
editing sign control symbol can be specified in one PICTURE 
charactei — string. 

• Unless it is preceded by a + or - symbol, the currency 
symbol ($) must be the leftmost character position in the 
charactei — string. 

• When either + or - is used as a symbol, it must represent 
either the leftmost or rightmost character position in the 
charactei — string. 

• When CR or DB is used as a symbol, it must represent the 
rightmost two character positions in the charactei — string. 

• Editing sign control symbols produce results depending on 
the value of the data item, as shown in Figure 16. 
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Editing Symbol in PICTURE 
Character string 



OR 

DB 



Result — 
Data Item 
Positive or Zero 

+ 

space 
2 spaces 
2 spaces 
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Data Item 
Negative 



OR 
DB 



o 

\.^ 



Figure 16. Editing Sign Control Results 



Examples of fixed insertion editing are shown in Figure 17 



PICTURE 

999.99+ 
+9999.99 
9999.99- 
$999.99 
-$999.99 
$9999. 99CR 
$9999. 99DB 



Value of Data 

+6555.556 
-6555.555 
+ 123<t.56 

-123.45 

-123.456 

+123.45 

-123.45 



Edited Result 

555.55+ 
-6555.55 

1234.56 

$123.45 
-$123.45 
$0123.45 
$0123. 45DB 



Figure 17. Examples of Fixed Insertion Editing 



FLOATING INSERTION EDITING: This type of 
for numeric edited items. The following 

$ + - 



editing is only valid 
symbols are used: 



K.J 



Within one PICTURE charactei — string, these symbols are mutually 
exclusive as floating insertion characters. 

Floating insertion editing is specified by using a string of at 
least two of the allowable floating insertion symbols to 
represent leftmost character positions in which these actual 
characters can be inserted. 

The leftmost floating insertion symbol in the character-string 
represents the leftmost limit at which this actual character can 
appQar in the data item. The rightmost floating insertion 
symbol represents the rightmost limit at which this actual 
character can appear. 

The second leftmost floating insertion symbol in the 
charactei — string represents the leftmost limit at which numeric 
data can appear within the data item. Nonzero numeric data may 
replace all characters at or to the right of this limit. 

Any simple insertion symbols (B / ,) within or to the 
immediate right of the string of floating insertion symbols sre 
considered part of the floating charactei — string. If the period 
(.) special insertion symbol is included within the floating 
string, it is considered to be part of the character-string. 

In a PICTURE charactei — string there are two ways to represent 
floating insertion editing, and in which editing is performed: 

1. Any or all leading numeric character positions to the left 
of the decimal point are represented by the floating 
insertion symbol. When editing is performed, a single 
floating insertion character is placed to the immediate left 
of the first nonzero digit in the data, or of the decimal 
point, whichever is farther left. The character positions 



X-/'' 
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o 



o 



to the left of the inserted character are filled with 
spaces. 

2. All of the numeric character positions are represented by 
the floating insertion symbol. When editing is performed* 
then 5 

• If the value of the data is zero* the entire data item 
will contain spaces. 

• If the value of the data is nonzero* the result is the 
same as in rule 1, 

To avoid truncation, the minimum size of the PICTURE 
charactei — string must be: 

• The number of character positions in the sending item, plus 

• The number of nonfloating insertion symbols in the receiving 
item, plus 

• One character for the floating insertion symbol. Even if 
the size of the PICTURE character string is larger than the 
minimum needed to accommodate the sending field, the PICTURE 
character string must be constructed so that the leftmost 
comma is preceded by at least one numeric character position 
to represent the digit and by one character to represent the 
floating insertion character. For example, if the sending 
field is defined as^ 

01 SEND-FIELD PIC 9(5)V99 

and the receiving field is defined as^ 

77 RECV-FLD PIC $,$$$,$$$,$$$. 99 

The edited result will not be correct. To yield the correct 
results, the receiving field must be defined as- 

77 RECV-FLD PIC $$,$$$,$$$,$$$. 99 

NoteJ A single insertion symbol to the left of a simple or 
fixed insertion symbol followed by a string of floating 
insertion symbols is not considered part of the floating 
charactei — string. That is, the leftmost + in the following 
character-stri ngJ 

is considered a fixed insertion symbol and not a floating 
insertion symbol. 

Examples of floating insertion editing &re shown in Figure 18. 



PICTURE Value of Data Edited Result 

$$$$.99 .123 $.12 

$$$9.99 .12 $0.12 

$$,$$$,999.99 -1234.56 $1,234.56 

++,+++,999.99 -123456.789 -123,456.78 

$$,$$$, $$$.99CR -1234567 $1 ,234, 567 .OOCR 

++,+++,+++.+++ 0000.00 

Figure 18. Examples of Floating Insertion Editing 



Data Description 85 



ZERO SUPPRESSION AND REPLACEMENT EDITING: This type of editing 
is only valid for numeric edited items. The symbols Z and^ are 
used. 

The following symbols are mutually exclusive as floating 
replacement symbols in one PICTURE charactet — string: 

Z J« + - $ 

Zero suppression editing is specified by using a string of one 
or more of the allowable symbols to represent leftmost character 
positions in which zero suppression and replacement editing can 
be performed. 

Any simple insertion symbols (BO/ ,) within or to the 
immediate right of the string of floating editing symbols sre 
considered part of the string. If the period (.) special 
insertion symbol is included within the floating editing string* 
it is considered to be part of the charactei — string. 

In a PICTURE character-string there are two ways to represent 
zero suppression, and in which editing is performed: 

• Any or all of the leading numeric character positions to the 
left of the decimal point Qr& represented by suppression 
symbols. When editing is performed, any leading zero in the 
data that appears in the same character position as a 
suppression symbol is replaced by the replacement character. 
Suppression stops at the leftmost character that: 

— Does not correspond to a suppression symbol 

— Contains nonzero data 

— Is the decimal point 

• All of the numeric character positions in the PICTURE 
charactei — string are represented by the suppression symbols. 
When editing is performed, and the value of the data is 
nonzero, the result is the same as in the preceding rule. 

If the value of the data is zero, then: 

— If Z has been specified, the entire data item will 
contain spaces. 

— If ^ has been specified, the entire data item, except 
the actual decimal point, will contain asterisks. 

Note: The asterisk ()() as a suppression symbol and the BLANK 
WHEN ZERO clause must not be specified for the same entry. 

Examples of zero suppression and replacement editing are shown 
in Figure 19. 






PICTURE 

ZZZZ.ZZ 
ZZZZ.99 
^}mi( , 99 
ZZ99.99 
Z,ZZZ.ZZ+ 

K, XXX .)()( + 

$Z,ZZZ,ZZZ.ZZCR 

$B)«,xx)(,xxx.)<KBBDB 



Value of Data 

0000.00 

0000.00 

0000.00 

0000.00 

0000.00 

+123.456 

-123.45 

+12345678.9 

+12345.67 

-12345.67 



Edited Result 

.00 
xxxx. 00 
00.00 
123.45+ 
5<X123.45- 
12,345,678.90+ 
$ 12,345.67 
$ 5«)()«12,345.67 



DB 



Figure 19. Examples of Zero Suppression and Replacement Editing 



\^/ 
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SIGN CLAUSE 



The SIGN clause specifies the position and mode of 
representation of the operational sign for a numeric entry. 



Format 



\ 



LEADING I 

[ SIGN IS] < > [ SEPARATE CHARACTER] 

I TRAILING I 

L J 

The SIGN clause may be specified only for a signed numeric data 
description entry (that is, one whose PICTURE charactei — string 
contains an S), or for a group item which contains at least one 
such elementary entry. USAGE IS DISPLAY must be specified, 
explicitly or implicitly. 

Only one SIGN clause may apply to any one data description 
entry. 

The SIGN clause is required only when an explicit description of 
the properties and/or position of the operational sign is 
necessary. 

When specified, the SIGN clause defines the position and mode of 
representation of the operational sign for the numeric data 
description entry to which it applies, or for each signed 
numeric data description entry subordinate to the group to which 
it applies. 

If the SEPARATE CHARACTER option is not specified, then: 

• The operational sign is assumed to be associated with the 
LEADING or TRAILING digit position, whichever is specified, 
of the elementary numeric data item. (In this instance, 
specification of SIGN IS TRAILING is the equivalent of the 
standard action of the compiler.) 

• The character S in the PICTURE character string is not 
counted in determining the size of the item (in terms of 
Standard Data Format characters) . 

If the SEPARATE CHARACTER option is specified, then: 

• The operational sign is assumed to be the LEADING or 
TRAILING character position, whichever is specified, of the 
elementary numeric data item. This character position is 
not a digit position. 

• The character S in the PICTURE character string is counted 
in determining the size of the data item (in terms of 
Standard Data Format characters) . 

• +15 the character used for the positive operational sign. 

• - is the character used for the negative operational sign. 

• At object time if one of the characters + or - is not 
present in the data an error occurs, and the program 
abnormally terminates. 

Every numeric data description entry whose PICTURE contains the 
symbol S is a signed numeric data description entry. If the 
SIGN clause is also specified for such an entry, and conversion 
is necessary for computations or comparisons, the conversion 
takes place automatically. 

If no SIGN clause is specified for a signed numeric data 
description entry, the position and mode of representation for 
the operational sign are determined as explained in the USAGE 
clause description. 
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SYNCHRONIZED CLAUSE 



Note: ASCII considerations for the SIGN clause are given in 

Appendix B. ilT 

The SYNCHRONIZED clause specifies the alignment of an elementary 
item on a proper boundary in storage. 

Format 

[ SYNCHRONIZED 1 [ LEFT 1 
< > I I 

I SYNC j I RIGHT I 

L J L J 

SYNC is an abbreviation for SYNCHRONIZED and has the same 
meani ng. 

The SYNCHRONIZED clause ensures efficiency when performing 
arithmetic operations on an item. The SYNCHRONIZED clause is 
never required; however* performance is improved when 
SYNCHRONIZED is specified for binary items used in arithmetic. 

The SYNCHRONIZED clause msy appear only at the elementary level. 

When specified, the LEFT and the RIGHT options are treated as 
documentati on . 

The length of an elementary item is not affected by the 
SYNCHRONIZED clause. 

When the SYNCHRONIZED clause is specified for an item within the 

scope of an OCCURS clause, each occurrence of the item is 

synchronized. / \ 

When the item is aligned, the character positions between the 
last item assigned and the current item are known as slack 
bytes . These unused character positions are included in the 
size of any group to which the synchronized elementary item 
belongs. 

The proper boundary used to align the item to be synchronized 
depends on the format of the item as defined by the USAGE 
clause. 

When the SYNCHRONIZED clause is specified, the following actions 
are taken' 

For a COMPUTATIONAL item: 

• If its PICTURE is in the range of S9 through S9(4), the item 
is aligned on a halfword (even) boundary. 

• If its PICTURE is in the range of S9(5) through S9(18), the 
item is aligned on a fullword (multiple of 4) boundary. 

For a DISPLAY item. The SYNCHRONIZED clause is treated as 
documentati on . 



I IBM Extension 



The SYNCHRONIZED clause treats a COMPUTATIONAL-^ item as the 
equivalent of a COMPUTATIONAL item and a COMPUTATIONAL-3 item as 
the equivalent of a DISPLAY item. 



End of IBM Extension 



v=./ 



In 



When the SYNCHRONIZED clause i s specified for an item that also ^ 

contains a REDEFINES clause, the data item that is redefined M 

must have the proper boundary alignment for the data item that \^ 
redefines it. For example, if the programmer writes^ 
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02 A PICTURE XC4). 

02 B REDEFINES A PICTURE 59(9) COMP SYNC. 

Data item A must begin on a fullword boundary. 

When the SYNCHRONIZED clause is specified for a binary item that 

is the first elementary item subordinate to an item that 

contains a REDEFINES clause^ the item must not require the 
addition of slack bytes. 



When SYNCHRONIZED is not specified for binary items, 
reserved for slack bytes. 



no space i s 



In the File Section* the compiler assumes that all level-01 
records containing SYNCHRONIZED items are aligned on a 
doubleuiord boundary in the buffer. The user must provide the 
necessary interrecord slack bytes to ensure alignment. 

In the Working-Storage Section, the compiler aligns all level-01 
entries on a doubleujord boundary. 

For the purposes of aligning, binary items in the Linkage 
Section, all level-01 items are assumed to begin on doubleuiord 
boundaries. Therefore, if the user issues a CALL statement, 
such operands of any USING clause within it must be 
correspondingly aligned. 



SLACK BYTES 



There are two types of slack bytesi intrarecord slack bytes and 
interrecord slack bytes. 

Intrarecord slack bytes are unused character positions preceding 
each synchronized item in the record. 

Interrecord slack bytes are unused character positions added 
between blocked logical records. 



Intrarecord Slack Bytes 



For an output file, or in the Working-Storage Section, the 
compiler inserts intrarecord slack bytes to ensure that all 
SYNCHRONIZED items are on their proper boundaries. For an input 
file, or in the Linkage Section, performance is improved if 
binary items are properly aligned. 

Because it is important for the user to know the length of the 
records in a file, the algorithm the compiler uses to determine 
whether slack bytes are required and, if they are required, the 
number of slack bytes to add, is as follows^ 

• The total number of bytes occupied by all elementary data 
items preceding the binary item are added together, 
including any slack bytes previously added. 

• This sum is divided by m, where s 

m = 2 for binary items of 4-digit length or less 
m = 4 for binary items of 5-digit length or more 

• If the remainder (r) of this division is equal to zero, no 
slack bytes are required. If the remainder is not equal to 
zero, the number of slack bytes that must be added is equal 
to m - r. 

These slack bytes are added to each record immediately following 
the elementary data item preceding the binary item. They are 
defined as if they were an item with a level number equal to 
that of the elementary item that immediately precedes the 
SYNCHRONIZED binary item, and are included in the size of the 
group which contains them. 
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For example: 

01 FIELD-A. . . 

05 FIELD-B PICTURE X(5). ^^ 

05 FIELD-C. 

05 FIELD-D PICTURE XX. 
K 10 Slack-Bytes PICTURE X. Inserted by 

^ compi ler 

10 FIELD-E COMPUTATIONAL PICTURE S9(6) SYNC. 

01 FIELD-L. 

05 FIELD-M PICTURE X(5). 

05 FIELD-N PICTURE XX. 
^ 05 Slack-Bytes PICTURE X. Inserted by compiler 

05 FIELD-0. 

10 FIELD-P COMPUTATIONAL PICTURE S9(6) SYNC. 

Slack bytes may also be added by the compiler Mhen a group item 
is defined with an OCCURS clause and contains within it a 
SYNCHRONIZED binary data item. To determine whether slack bytes 
are to be added, the following action is takeni 

• The compiler calculates the size of the group, including all 
the necessary intrarecord slack bytes. 

• This sum is divided by the largest m required by any 
elementary item within the group. 

• If r is equal to zero, no slack bytes are required. If r is 
not equal to zero, m - r slack bytes must be added. 

The slack bytes are inserted at the end of each occurrence of 
the group item containing the OCCURS clause. For example, if a 
record is defined as follows^ 



01 WORK-RECORD. 

05 WORK-CODE PICTURE X. 
05 COMP-TABLE OCCURS 10 TIMES. 
10 COMP-TYPE PICTURE X. 
^ 10 la-slack-Bytes PIC XX. Inserted by compiler 

10 COMP-PAY PICTURE S9(4)V99 COMP SYNC. 
10 COMP-HRS PICTURE S9(3) COMP SYNC. 
10 COMP-NAME PICTURE X(5). 

The record will appear in storage as shown in Figure 20. 



K.y 



i 
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- doubleword boundary 
F = fullword boundary 
H = halfword boundary 



Figure 20. Insertion of Intraoccurrence Slack Bytes 



In order to align COMP-PAY and C0MP-HR5 upon their proper 
boundaries^ the compiler has added two intraoccurrence slack 
bytes (shown above as la-slack-Bytes) . 

However^ without further adjustments the second occurrence of 
COMP-TABLE would now begin one byte before a doubleword 
boundary, and the alignment of COMP-PAY and COMP-HRS would not 
be valid for any occurrence of the table after the first. 
Therefore, the compiler must add i nteroccurrence slack bytes at 
the end of the group, as though the record had been written* 

01 WORK-RECORD. 

05 WORK-CODE. PICTURE X. 
05 COMP-TABLE OCCURS 10 TIMES. 
10 COMP-TYPE PICTURE X. 
^ 10 la-Slack-Bytes PIC XX. Inserted by compiler 

10 COMP-PAY PICTURE S9(4)V99 COMP SYNC. 
10 COMP-HRS PICTURE S9(3) COMP SYNC. 
10 COMP-NAME PICTURE X(5). 
X 10 le-Slack-Bytes PIC XX. Inserted by compiler 

so that the second (and each following) occurrence of COMP-TABLE 
begins one byte beyond a doubleword boundary. The storage 
layout for the first occurrences of COMP-TABLE will now appear 
as shown in Figure 21. 

Each succeeding occurrence within the table will now begin at 
the same relative position as the first. 
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D = doubleword boundary 
F = fuilword boundary 
H = halfword boundary 






Figure 21. Insertion of Interoccurrence Slack Bytes 



follow an entry containing 
bytes are added on the 
imum number of times. If 
sible by the m required for 

data-name that i s the 
11 give proper alignment of 
for which the length of the 
of occurrences plus slack 
d on the maximum number of 



Where SYNCHRONIZED binary data items 
an OCCURS DEPENDING ON clause, slack 
basis of the field occurring the max 
the length of this field is not divi 
the data, only certain values of the 
object of the DEPENDING ON option wi 
the fields. These values are those 
data field multiplied by the number 
bytes that have been calculated base 
occurrences is divisible by m. 

For example* 

01 FIELD-A. 

05 FIELD-B PICTURE 99. 

05 FIELD-C PICTURE X OCCURS 20 TO 99 TIMES 
DEPENDING ON FIELD-B. 
X 05 Slack-Bytes PICTURE X. Inserted by compiler 

05 FIELD-D COMPUTATIONAL PICTURE S99 SYNCHRONIZED, 

In this example, when references to FIELD-D are required, 
FIELD-B is restricted to odd values only. 



'\^y 



01 



FIELD- 

05 

05 

05 
05 



FIELD-B PICTURE 99. 

FIELD-C PICTURE XX OCCURS 20 TO 99 TIMES 

DEPENDING ON FIELD-B. 
Slack-Bytes PICTURE X. Inserted by compiler 
FIELD-D PICTURE S99 COMP SYNC. 



In this example, all values of FIELD-B give proper references to 
FIELD-D. 



interrecord Slack Bytes 



If the file contains blocked logical records that are to be 
processed in a buffer, and any of the records contain binary 
entries for which the SYNCHRONIZED clause is specified, 
performance is better if the user adds anv interrecord slack 
bytes needed for proper alignment. 
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05 


A-1 


05 


A-2 


05 


A-3 


05 


B-1 


05 


B-2 


05 


B-3 



The lengths of all the elementary data items in the record, 
including all intrarecord slack bytes, are added. For 
variable-length records, it is necessary to add four bytes for 
the count field. The total is then divided by the highest value 
of m for any one of the elementary items in the record. 

If r (the remainder) is equal to zero, no interrecord slack 

bytes are required. If r is not equal to zero, m - r slack 

bytes are required. These slack bytes may be specified by 

writing a level-02 FILLER at the end of the record. 

Example: The following example shows the method of calculating 
both intrarecord and interrecord slack bytes. Consider the 
following record description^ 

01 COMP-RECORD. 

PICTURE X(5). 

PICTURE X(3). 

PICTURE X(3). 

PICTURE S9999 USAGE COMP SYNCHRONIZED. 

PICTURE S99999 USAGE COMP SYNCHRONIZED. 

PICTURE S9999 USAGE COMP SYNCHRONIZED. 

This number of bytes in A-1, A-2, and A-3 totals 11. B-1 is a 
4-digit COMPUTATIONAL item and therefore one intrarecord slack 
byte must be added before B-1. With this byte added, the number 
of bytes preceding B-2 total 14. Because B-2 is a COMPUTATIONAL 
item of five digits in length, two intrarecord slack bytes must 
be added before it. No slack bytes are needed before B-3. 

The revised record description entry now appears as: 

01 COMP-RECORD. 

05 A-1 PICTURE X(5). 

05 A-2 PICTURE X(3). 

05 A-3 PICTURE X(3). 

H 05 Slack-Byte-1 PICTURE X. Inserted by compiler 

05 B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

X 05 Slack-Byte-2 PICTURE XX. Inserted by compiler 

05 B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 

05 B-3 PICTURE S9999 USAGE COMP SYNCHRONIZED. 

There is a total of 22 bytes in COMP-RECORD, but, from the rules 
given in the preceding discussion, it appears that m - ^ and 
r = 2. Therefore, to attain proper alignment for blocked 
records, the user must add two interrecord slack bytes at the 
end of the record. 

The final record description entry appears as: 

01 COMP-RECORD. 

A-1 PICTURE X(5). 
A-2 PICTURE X(3). 
A-3 PICTURE X(3). 

Slack-Byte-1 PICTURE X. Inserted by compiler 
B-1 PICTURE S9999 USAGE COMP SYNCHRONIZED. 
Slack-Byte-2 PICTURE XX. Inserted by compiler 
B-2 PICTURE S99999 USAGE COMP SYNCHRONIZED. 
B-3 PICTURE S9999 USAGE COMP SYNCHRONIZED. 
FILLER PICTURE XX. Following are interrecord 
slack bytes added by the user. 
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05 
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USAGE CLAUSE 



The USAGE clause specifies the format of a data item in storage. 
Format 



j^- 



[USAGE IS] < 



DISPLAY 

INDEX 

COMPUTATIONAL 
COMP 



COMPUTATIONAL-5 
COMP-3 

COMPUTATIONAL-4 
COMP-^ 



The USAGE clause can be specified for an entry at any level. 
However, if it is specified at the group level, it applies to 
each elementary item in the group. The usage of an elementary 
item cannot contradict the usage of a group to which the 
elementary item belongs. 

The USAGE clause specifies the format in which data is 
represented in storage. The format may be restricted if certain 
Procedure Division statements are used. 

Uhen the USAGE clause is not specified at either the group or 
elementary level, it is assumed that the usage is DISPLAY. 

USAGE INDEX is discussed in the chapter on Table Handling. 

COMPUTATIONAL-1 and COMPUTATIONAL-2 are di scussed in Appendix A. 



^\^J 



DISPLAY option 



The DISPLAY option can be explicit or implicit. It specifies 
that the data item is stored in character form, one character 
P^r eight-bit byte. This corresponds to the form in which 
information is represented for initial card input or for printed 
or punched output. USAGE IS DISPLAY is valid for the following 
types of itemsi 

Alphabeti c 

Alphanumeri c 

Alphanumeric edited 

Numeric edited 

External decimal (numeric) 

Alphabetic, alphanumeric, alphanumeric edited, and numeric 
edited items are discussed in the description of the PICTURE 
clause. 

EXTERNAL DECIMAL ITEMS i These items &rei sometimes referred to as 
zoned decimal items. Each digit of a number is represented by a 
single byte. The four high-order bits of each byte are 2one 
bits; the four high-order bits of the low-order byte represent 
the sign of the item. The four low-order bits of each byte 
contain the value of the digit. When external decimal items &rei 
used for computations, the compiler performs the necessary 
conversi ons. 

The maximum length of an external decimal item is 18 digits. 



J 
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The PICTURE character-string of an external decimal item may 
contain only 9s, the operational sign symbol S» the assumed 
decimal point V, and one or more Ps. 

Examples of external decimal items are shown in Figure 22. 

Note* For ASCII considerations, see Appendix B. 



Computational Options 



^^. 
^i^"' 



The term "computational" refers to the following options of the 
USAGE clause: 

COMPUTATIONAL or COMP (binary) 

I IBM Extension 1 

COMPUTATIONAL-3 or COMP-3 (internal decimal). (COMPUTATIONAL-^^ 
or COMP-4 (binary). 



End of IBM Extension 



A computational item represents a value to be used in arithmetic 
operations and must be numeric. If the USAGE of a group item is 
described with any of these options, it is the elementary items 
within the group that have this usage. The group itself is 
considered nonnumeric, and cannot be used in numeric operations. 

The maximum length of a computational item is 18 decimal digits. 

The PICTURE of a computational item may contain only: 

9 (one or more numeric character positions) 

S (one operational sign) 

V (one implied decimal point) 

P (one or more decimal scaling positions) 

Examples of computational items are shown in Figure 22. 
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Numeric 
Type 



External 
Decimal 



Binary 



Internal 
Decimal 



PICTURE and USAGE 

and optional SIGN clause 



PIC S9999 DISPLAY 



PIC 9999 DISPLAY 



PIC S9999 DISPLAY 
SIGN LEADING 

PIC S9999 DISPLAY 
SIGN LEADING SEPARATE 

PIC S9999 DISPLAY 
SIGN TRAILING SEPARATE 



COMP 



PIC S9999 



PIC 9999 



|(C0MP~a. 
(cOMP 
|icOMP-4! 



PIC S9999 COMP-3 



PIC 9999 COMP-3 



Value 



+ 1234 

-1234 

1234 

+ 1234 

-1234 

1234 

+ 1234 
-1234 

+ 1234 
-1234 

+ 1234 
-1234 



+ 1234 
-1234 



+ 1234 
-1234 



+ 1234 
-1234 

+ 1234 
-1234 



Internal Representation* 






F1 F2 F3 C4 

F1 F2 F3 D4 

F1 F2 F3 C4 

F1 F2 F3 F4 

F1 F2 F3 F4 

F1 F2 F3 F4 

CI F2 F3 F4 

D1 F2 F3 F4 

4E F1 F2 F3 F4 

60 F1 F2 F3 F4 

F1 F2 F3 F4 4E 

F1 F2 F3 F4 60 



04 D2 
FB 2E 



04 D2 
04 D2 



01 23 4C 

01 23 4D 

01 23 4F 

01 23 4F 



Vv-^.J^ 



♦The internal representation of each byte is shown as two hexadecimal 
digits. The bit configuration for each digit is: 



Hex. D 


igi 


t 


Bit 


Conf ig 











0000 


1 








0001 


2 








0010 


3 








0011 


4 








0100 


5 








0101 


6 








01 10 


7 








0111 



Hex. Digit 

8 
9 

A 
B 
C 
D 
E 
F 



Bit Configuration 

1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 



(Hexadecimal 4E and 60 represent the EBCDIC + and - signs, respectively.) 
Note: The leftmost bit of a binary number represents the sign: 



is 



positive, 1 is negative. Negative numbers are shown in twos complement 
form . 



Figure 22. Internal Representation of Numeric Items 
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COMPUTATIONAL Option: This option is specified for binary data 
items. Such items have a decimal equivalent consisting of the 
decimal digits through 9, plus a sign. 

The amount of storage occupied by a binary item depends on the 
number of decimal digits defined in its PICTURE clause^ 

Digits in PICTURE clause storage Occupied 



1 through 4 
5 through 9 
10 through 18 



2 bytes (halfword) 
4 bytes (fullword) 
8 bytes (2 fullwords- 
a doubleword) 



-not necessarily 



The leftmost bit of the storage area is the operational sign. 

Note: The COMPUTATIONAL option is system dependent and usually 
is assigned to representations that yield the greatest 
efficiency when performing arithmetic operations on that system; 
for this compiler, the COMPUTATIONAL option is binary. 



IBM Extension 



COMPUTATIONAL-3 Option: This option is specified for internal 
decimal items. Such an item appears in storage in packed 
decimal format. There are two digits per byte, with the sign 
contained in the rightmost four bits of the rightmost byte. 
Such an item may contain any of the digits through 9, plus a 
sign* representing a value not exceeding 18 decimal digits. 

For internal decimal items whose PICTURE does not contain an S* 
the sign position is occupied by a bit configuration that is 
interpreted as positive, but that does not represent an 
overpunch. 



End of IBM Extension 



IBM Extension 



COMPUTATIONAL-^ Option: This option is specified for 
system-independent binary items. For this compiler, it is the 
equivalent of COMPUTATIONAL. 



End of IBM Extension 



VALUE CLAUSE 



The VALUE clause specifies the initial contents of a data item, 
or the value(s) associated with a condition-name. 

Format 1 

[ VALUE IS literal] 

Format 2 

\ VALUE IS 1 
[88 condition-name < > 

I VALUES ARE | 

[ THROUGH 1 
literal-1 [ < > literal-23 
I THRU I 

L J 



\ THROUGH 1 

literal-3 [ < > literal-4 ] 

I THRU I 

L J 
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Notei Level-number 88 and condition-name are not part of the 

Format 2 VALUE clause itself ^ and ere included in the format /f^\ 

only for clarity. 1 

The use of the VALUE clause varies with the Data Division 
section in which it is specified. 

File and Linkage Sections: The VALUE clause must be used only in 
condition-name entries. 

Working-Storage and Communication Sections*- The VALUE clause is 
used in condition-name entries. It is also used to specify the 
initial value of any data item; the item assumes the specified 
value at the beginning of program execution. If the initial 
value is not explicitly specified^ it is unpredictable. 

I IBM Extension 1 

REPORT section: The VALUE clause is used to specify the constant 
value of an elementary report group description entry. Details 
are given in the chapter on Report Writer. 



End of IBM Extension 



General Considerations 



The VALUE clause must not be specified for any item whose length 
i s variable. 

For group entries^ the VALUE clause must not be specified if the 
entry also contains any of the following clauses: JUSTIFIED, 
SYNCHRONIZED, or USAGE (other than USAGE DISPLAY). 

The VALUE clause must not conflict with other clauses in the 
data description entry, or in the data description of this 
entry's hierarchy. The following rules apply: 

• Wherever a literal is specified, a figurative constant may 
be substituted. 

• If the item is numeric, all VALUE clause literals must be 
numeric literals. If the literal defines the value of a 
Working-Storage item, the literal is aligned according to 
the rules for numeric moves with one additional restriction: 
The literal must not have a value that requires truncation 
of nonzero digits. If the literal is signed, the associated 
PICTURE charactei — string must contain a sign symbol (S). 

• All numeric literals in a VALUE clause of an item must have 
a value that is within the range of values indicated by the 
PICTURE clause for that item. For example, for PICTURE 
99PPP, the literal must be within the range 1000 through 
99000 or zero. For PICTURE PPP99, the literal must be 
within the range .00000 through .00099. 

• If the item is an elementary or group alphabetic, 
alphanumeric, alphanumeric edited, or numeric edited item, 
all VALUE clause literals must be nonnumeric literals. The 
literal is aligned according to the alignment rules, with 
one additional restriction: The number of characters in the 
literal must not exceed the size of the item. (See the 
section on Standard Alignment Rules.) 

• The functions of the editing characters in a PICTURE clause 
are ignored in determining the initial appearance of the 
item described. However, editing characters are included in 
determining the size of the item. Therefore, any editing 
characters must be included in the literal. For example, if 
the item is defined as PICTURE +999.99 and the value is to 
be +12.34 then the VALUE clause should be specified as VALUE 
'+012.34'. 



V^-V 
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A maximum of 65/535 bytes may be initialized by means of a 
single VALUE clause. 



Format 1 Considerations 



This format specifies the initial value of a data item in 
storage. Initialization is independent of any specified BLANK 
WHEN ZERO or JUSTIFIED clause. 

A Format 1 VALUE clause must not be specified for an entry that 
contains or is subordinate to an entry that contains a REDEFINES 
or OCCURS clause. 

If the VALUE clause is specified at the group level, the literal 
must be a nonnumeric literal or a figurative constant. The 
group area is initialized without consideration for the 
subordinate entries within this group. In addition, the VALUE 
clause must not be specified for subordinate entries within this 
group. 



Format 2 Considerations 






This format associates a value, values, and/or range(s) of 
values with a condition-name. Each such condition-name requires 
a separate level-88 entry. 

The VALUE clause is required in a condition-name entry, and must 
be the only clause in the entry. Each condition-name entry is 
associated with a preceding conditional variable. Therefore, 
every level-88 entry must always be preceded either by the entry 
for the conditional variable, or by another level-88 entry (when 
several condition-names apply to one conditional variable). 
Each such level-88 entry implicitly has the PICTURE 
characteristics of the conditional variable. 

Every condition-name can be qualified by the name of its 
associated conditional variable, and by the conditional 
variable's qualifiers. If the associated conditional variable 
requires subscripts or indexes, each procedural reference to the 
condition-name must be subscripted or indexed as required for 
the conditional variable. 

When only literal-1 is specified, the condition-name is 
associated with a single value. 

When literal-1, literal-3, etc, are specified, the 
condition-name is associated with several single values. 

When literal-1 THRU literal-2 is specified, the condition-name 
is associated with one range of values. 

When literal-1 THRU literal-2 literal-3 THRU literal-^, and so 
forth, are specified, the condition-name is associated with more 
than one range of values. Literal-1 must be less than 
literal-2, literal-3 less than literal-4, and so forth. 

Note that one or more single values and one or more ranges of 
values may be specified in a single Format 2 VALUE clause. 

(The key words THRU and THROUGH are equivalent.) 

The type of literal in a condition-name entry must be consistent 
with the data type of the conditional variable. In the 
following example, CITY-COUNTY-INFO, COUNTY-NO, and CITY are 
conditional variables; the associated condition-names 
immediately follow the level-number &8 . The PICTURE associated 
with COUNTY-NO limits the condition-name value to a 2-digit 
numeric literal. The PICTURE associated with CITY limits the 
condition-name value to a 3-character nonnumeric literal. Any 
values for the condition-names associated with CITY-COUNTY-INFO 
cannot exceed 5 characters, and the literal (because this is a 
group item) must be nonnumeric* 
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CITY-COUNTY-INFO 



88 BRONX 


VALUE "03NYC" 


8S BROOKLYN 


VALUE "24NYC" 


88 MANHATTAN 


VALUE "31NYC" 


88 QUEENS 


VALUE "41 NYC" 


S& STATEN-ISLAND 


VALUE "43NYC" 


10 COUNTY-NO 


PICTURE 99. 


88 DUTCHESS 


VALUE 14. 


88 KINGS 


VALUE 24. 


88 NEW-YORK 


VALUE 31. 


88 RICHMOND 


VALUE 43. 


10 CITY 


PICTURE X(3). 


88 BUFFALO 


VALUE "BUF". 


88 NEW-YORK-CITY 


VALUE "NYC". 


88 POUGHKEEPSIE 


VALUE "POK". 


POPULATION. . . 





( 



05 

Additional condition-name entry rules &re given in the 
description of General Format 3 at the beginning of the Data 
Description section. 

Condition-names are used procedurally in Condition-name 
Conditions, which are described in the chapter on Conditional 
Expressions. 



RENAMES CLAUSE 



The RENAMES clause specifies alternative, possibly overlapping, 
groupings of elementary data items. 

Format 

66 data-name-1 RENAMES data-name-2 



I THROUGH 1 
< > 

I THRU I 



data-name-3] 



vy 



Notet Level-number 66 and data-name-1 are not part of the 
RENAMES clause itself, and are included in the format only for 
clarity. 

One or more RENAMES entries can be written for a logical record, 
All RENAMES entries associated with one logical record must 
immediately follow that record's last data description entry. 

data-name-!: Identifies an alternative grouping of data items. 

A level-66 entry cannot rename a level-01, level-77, level-88, 
or another level-66 entry. 

Data-name-1 cannot be used as a qualifier; it can be qualified 
only by the names of level indicator entries or level-01 
entries. 

data-name-2 and data-name-3: Identify the original grouping of 
elementary data items; that is, they must name elementary or 
group items within the associated level-01 entry, and must not 
be the same data-name. Both data-names may be qualified. 

The OCCURS clause must not be specified in the data entries for 
data-name-2 and data-name-3, or for any group entry to which 
they are subordinate. In addition, the OCCURS DEPENDING ON 
clause must not be specified for any item occupying storage 
between data-name-2 and data-name-3. 
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data-name-2 Option 



Ulhen data-name-3 is not specified* data-name-Z can be either a 
group item or an elementary item. When data-name-2 is a group 
item* data-name-1 is treated as a group item. Ulhen data-name-2 
is an elementary item* data-name-1 is treated as an elementary 
i tem. 



data<-name-2 THRU ciata-name-3 Option 



Ulhen data-name-3 is specified* data-name-1 is a group item that 
includes all elementary items: 

• Starting with data-name-2 (if it is an elementary item) or 
the first elementary item within data-name-2 (if it is a 
group item)* and 

• Ending with data-name-3 (if it is an elementary item) or the 
last elementary item within data-name-3 (if it is a group 

i tem) . 

(The key words THRU and THROUGH are equivalent.) 

The leftmost character in data-name-3 must not precede that in 
data-name-2; the rightmost character in data-name-3 must follow 
that in data-name-2. This means that data-name-3 cannot be 
subordinate to data-name-2. 

Figure 23 illustrates valid and invalid RENAMES clause 
speci f i cati ons. 
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COBOL Specifications 
Example 1 (Valid) 

01 RECORD -I. 

05 DN-1 ... . 

05 DN-2. . . . 

05 DN-3. . . . 

05 DN-4. . . . 
66 DN-6 RENAMES DN-1 THROUGH DN-3 

Example 2 (Valid) 



01 



66 

Example 
01 



66 



RECORD- II. 
05 DN-1 . 

10 DN-2. . . . 

10 DN-2A. . . . 
05 DN-1A REDEFINES DN-1. 

10 DN-3A. ... 

10 DN-3. . . . 

10 DN-3B. . . . 
05 DN-5. . . . 
DN-6 RENAMES DN-2 THROUGH DN-3, 

3 (Invalid) 

RECORD- II I. 
05 DN-2. 

10 DN-3. . . . 

10 DN-4. . . . 
05 DN-5. . . . 
DN-6 RENAMES DN-2 THROUGH DN-3 



Example 


4 (Invalid) 


01 


RECORD- IV. 




05 DN-1 . 




10 DN-2A. . . . 




10 DN-2B. . . . 




10 DN-2C REDEFINES DN-2B. 




15 DN-2. . . . 




15 DN-2D. . . . 




05 DN-3. . . . 


66 


DN-4 RENAMES DN-1 THROUGH DN-2 



Storage Layouts 



< RECORD- I 



DN-1 DN-2 



DN-3 



^DN-6 






DN-n 



-* <RECORD-II 






DN-2 


; DN-2 A 


;dn-5 














DN-3A 


DN-3 


DN-3B 






)N-( 























, r3r:<r>r\T>-n,— T T T 




_l 






. T->Tn O ^ 






DN-3 


DN-4 


DN-5 



DN-6 is indeterminate 



DN-2 


DN-2D 














^■RPPORn T\7m 




^1 






_i rMVT 1 _ 














DN-2A 


DN-2B 


DN-3 





DN-4 is indeterminate 



Figure 23. RENAMES Clause — Valid and Invalid Specifications 
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PART ^, PROCEDURE DIVISION 



o 



PROCEDURE DIVISION ORGANIZATION 
ARITHMETIC EXPRESSIONS 
CONDITIONAL EXPRESSIONS 
CONDITIONAL STATEMENTS 
DECLARATIVES 
INPUT/OUTPUT STATEMENTS 
ARITHMETIC STATEMENTS 
DATA MANIPULATION STATEMENTS 
PROCEDURE BRANCHING STATEMENTS 
COMPILER-DIRECTING STATEMENTS 



%J 
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PROCEDURE DIVISION ORGANIZATION 






The Procedure Division is required in every COBOL source 
program. The Procedure Division consists of optional 
Declaratives, and procedures that contain the sections and/or 
paragraphs, sentences, and statements which solve a data 
processing problem. 



DECLARATIVES 



When Declarative sections are specified, they must be grouped at 
the beginning of the Procedure Division. Declarative sections 
are preceded by the key word DECLARATIVES and followed by the 
key words END DECLARATIVES. The chapter on Declaratives gives 
additional information. 

If Declarative sections are specified, the entire Procedure 
Division must be divided into sections. 



IBM Extension 



If Declarative sections are specified, the entire Procedure 
Division need not be divided into sections. 



End of IBM Extension 



PROCEDURES 



A procedure is a paragraph or group of paragraphs, a section or 
a group of sections within the Procedure Division. A 
procedure-name is a usei — defined name that identifies a section 
or a paragraph. 

A secti on consists of a section header followed by no, one, or 
more than one successive paragraph. A secti on -header is a 
section-name followed by the key word SECTION, followed 
optionally by a priority-number, followed by a period and a 
space. (Priority-numbers are explained in the chapter on the 
Segmentation Feature.) A secti on-name is a usei — defined word 
that identifies a section. A section-name, since it cannot be 
qualified, must be unique. A section ends immediately before 
the next section header, or at the end of the Procedure 
Division, or, in the Declaratives portion, at the key words END 
DECLARATIVES. 



A paracjra 
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ts of a paragraph-name followed by a period 
e, followed by no, one, or more than one 
e. A paragraph-name is a usei — defined word 
paragraph, A paragraph-name r since it can be 
t be unique. A paragraph ends immediately 
ragraph-name or section header, or at the end 

in the Declaratives portion, at 
If one paragraph in a program 

then all paragraphs must be 



1 VI SI on, or, 
DECLARATIVES 
n a section, 
ons. 



A sentence consists of one or more statements terminated by a 
period followed by a space. 

A statement is a syntactically valid combination of words 
(identifiers, figurative constants, and so forth) and symbols 
(literals, relational-operators, and so forth) beginning with a 
COBOL verb. 

An i dent i f i er consists of the word or words necessary to make 
unique reference to a data item, through qualification, 
subscripting, or indexing. In any Procedure Division reference 
(except the class test), the contents of an identifier must be 






c 
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compatible with the class specified through its PICTURE clause^ 
or results are unpredictable. 

NoteJ A level-88 (condition-name) entry^ because it is not a 
data item, cannot be an identifier; the associated conditional 
variable, however, can be an identifier. 

Execution begins with the first statement in the Procedure 
Division, excluding Declaratives. Statements are executed in 
the order in which they are presented for compilation, unless 
the rules indicate some other order. The end of the Procedure 
Division and the physical end of the program is that physical 
position in a source program after which no further procedures 
appear. 



PROCEDURE DIVISION STRUCTURE 



The structure of the Procedure Division is shown in the 
following format. 

Format 1 

PROCEDURE DIVISION [ USING identifier-1 C i dent i f i er-23 ... 

[ DECLARATIVES . 

(section-name SECTIOH Lpri ori ty-number] . USE sentence. 

[paragraph-name, [sentence] ... ] ...} ... 
END DECLARATIVE .] 

(section-name SECTION [priority-number], 
[paragraph-name, [sentence] ... ] ... } ... 

Format 2 

PROCEDURE DIVISION [ USING identifier-1 [ i dent i f i er-2] . . . ] 

(paragraph-name, [sentence] ... } ... 



CATEGORIES OF STATEMENTS 



Three categories of statements are used in COBOL'- conditional 

statements, imperative statements, and compi lei — directing 
statements. 

A conditional statement specifies that the truth value of a 

condition is to be determined, and that the subsequent action of 

the object program is dependent on this truth value. (See the 

chapter on Conditions.) Figure 24 lists COBOL conditional 
statements. 
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Dec i s i on 

IF 

Arithmetic 

ADD. ..ON SIZE ERROR 
COMPUTE. . .ON SIZE ERROR 
DIVIDE. . .ON SIZE ERROR 
MULTIPLY. ..ON SIZE ERROR 
SUBTRACT... ON SIZE ERROR 

Data Movement 

STRING... ON OVERFLOW 
UNSTRING. . .ON OVERFLOW 



Input/Output 

DELETE... INVALID KEY 
READ. . .AT END 
READ.. .INVALID KEY 
RESERVE. ..NO DATA KEY 
REWRITE. .^INVALID KEY 
START.. .INVALID KEY 
WRITE. . .AT END-OF-PAGE 
WRITE.. .INVALID KEY 



Procedure Branching 

CALL. . .ON OVERFLOW 
Table Handling 
SEARCH 



,0' 



subprogram Linkage 

'CALL... ON OVERFLOW 
Ordering 
RETURN. ..AT END 
Figure 24. Conditional Statements and Their Categories 



An imperative statement specifies that an unconditional action 
is to be taken by the object program. An imperative statement 
m^y also consist of a series of imperative statements. 
Figure 25 lists COBOL imperative statements. 



X^J^ 
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Arithmetic 

ADD^ 

COMPUTE^ 

DIVIDE^ 

INSPECT (TALLYING) 

MULTIPLY^ 

SUBTRACT^ 

Data Movement 

ACCEPT (DATE, DAY, TIME) 
ACCEPT. . .MESSAGE COUNT' 
INSPECT (REPLACING) 
MOVE 
STRING^* 



TRANSFORM 



UNSTRING^ 

Ending 

STOP RUN 
EXIT PROGRAM' 



Input/Output 

ACCEPT identifier 

CLOSE 

DELETE^ 

DISABLE' 

DISPLAY 

ENABLE' 

OPEN 

READS 

RECEIVE^ ' 

REWRITE^ 

SEND' 

START2 

STOP literal 

WRITE"^^ 



Ordering^ 

MERGE 

RELEASE 

SORT 



Procedure Branching 

ALTER 
CALL^ ' 
EXIT 
GO 
PERFORM 



Report Writer' 

GENERATE 
INITIATE 
TERMINATE 



Table Handling' 

SET 



GOBACK" 



Subprogram Linkage' 

CALL^ 
CANCEL 



ENTRY 



Without the SIZE ERROR option 

Without the INVALID KEY option 

Without the ON OVERFLOW option 

Without the NO DATA option 

Without the AT END or INVALID KEY options 

Without the INVALID KEY or END-OF-PAGE options 

in separate chapters of the Special Features 



Di scussed 
Figure 25. Imperative Statements and Their Categories 



Sect i on 
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A compiler — directing statement causes the compiler to take a 
specific action during compilation. 

Figure 26 lists the COBOL compiler-directing statements. 






Library! 

COPY 



Declarative^ 

USE 



Documentation 
ENTER 



BASIS 

INSERT 

DELETE 



^ Discussed in the Source Program Library chapter 
^ Discussed in the Procedure Division* Debugging Features* and 

chapters 



Report Writer 



Figure 26. Compiler — Directing Statements and Their Categories 



CATEGORIES OF SENTENCES 



There e^r^ three categories of sentences^ conditional* 
imperative, and compiler-directing sentences. 

A conditional sentence is a conditional statement* optionally 
preceded by SkX\ imperative statement* terminated by a period 
followed by a space. 

An imperative sentence is bx\ imperative statement (which may 
consist of a series of imperative statements) followed by a 
period followed by a space. 

A compiler — directing sentence is a single compiler-directing 
statement followed by a period followed by a space. 



r" 
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ARITHMETIC EXPRESSIONS 



Arithmetic expressions are used as operands of certain 
conditional and arithmetic statements. 

An arithmetic expression may consist of any of the following^ 

1. An identifier described as a numeric elementary item 

2. A numeric literal 

3. Identifiers and literals, as defined in items 1 and 2» 
separated by arithmetic operators 

4. Two arithmetic expressions, as defined in items 1, 2» and/or 
3, separated by an arithmetic operator 

5. An arithmetic expression, as defined in items 1, 2, 3» 
and/or 4, enclosed in parentheses 

Any arithmetic expression may be preceded by a unary operator. 

Identifiers and literals appearing in an arithmetic expression 
must represent either numeric elementary items or numeric 
literals on which arithmetic can be performed. 



ARITHMETIC OPERATORS 



#1' 



Five binary arithmetic operators and two unary arithmetic 
operators may be used in arithmetic expressions as shown in 
Figure 27. They are represented by specific characters that 



j? must be both preceded and followed by a space. 



Binary 

Operator Meaning 

+ Addition 

Subtraction 
^ Multiplication 

/ Di vi si on 

^^ Exponentiation 

Unary 

Operator Meaning 

+ Multiplication 

by + 1 

Multiplication 
by - 1 

Figure 27. Binary and Unary Operators 



^lli^jir 



Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be evaluated. 

Expressions within parentheses are evaluated first. When 
expressions are contained within a nest of parentheses, 
evaluation proceeds from the least inclusive to the most 
inclusive set. 
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When parentheses are not used, or parenthesized expressions are 
at the same level of i nclusi veness> the following hierarchic 
order is implied^ 

1. Unary operator 

2. Exponentiation 

3. Multiplication and Division 

4. Addition and Subtraction 

Parentheses either eliminate ambiguities in logic where 
consecutive operations appear at the same hierarchic level or 
modify the normal hierarchic sequence of execution when this is 
necessary. When the order of consecutive operations at the same 
hierarchic level is not completely specified by parentheses* the 
order is from left to right. 

Figure 28 shows permissible arithmetic symbol pairs. An 
arithmetic symbol pair is the appearance of two such symbols in 
sequence. 

An arithmetic expression may begin only with a left parenthesis, 
a unary operator, or a variable (that is, an identifier or a 
literal). It may end only with a right parenthesis or a 
variable. An arithmetic expression must contain at least one 
reference to an identifier or a literal. 

There must be a one-to-one correspondence between left and right 
parentheses in an arithmetic expression, with each left 
parenthesis placed to the left of its corresponding right 
parenthesi s. 



^ 



Second 
Symbol 

First \ 
Symbol \ 


— -— — — — 1 
Variable 
( identifier 


X / x» + - 


unary + 
unary - 


( 


) 


Vari able 

( i dent i f i er or 

literal) 


— 


p 


— 


— 


p 


X / ^)( + - 


p 


- 


p 


p 


- 


unary + or 
unary - 


p 


- 


- 


p 


- 


( 


p 


- 


p 


p 


1 


) 


- 


p 


- 


- 


p 






Figure 28. Valid Arithmetic Symbol Pairs 
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CONDITIONAL EXPRESSIONS 



SIMPLE CONDITIONS 



CLASS CONDITION 






A conditional expression causes the object program to select 
alternative paths of control, depending on the truth value of a 
test. Conditional expressions are specified in IF» PERFORM, and 
SEARCH statements. A conditional expression can be specified in 
both simple and complex conditions. Both simple and complex 
conditions can be enclosed within any number of paired 
parentheses; this does not change the category of the condition. 



There qvg five simple conditions^ class, condition-name, 
relation, sign, and switch-status condition. A simple condition 
has a truth value of true or false. When a simple condition is 
enclosed in paired parentheses, its truth value is not changed. 



The class condition determines whether a data item is alphabetic 
or numeric. 



Format 



[ 



NUMERIC i 
identifier IS CNOrr] < > 

I ALPHABETIC I 

L J 

The identifier being tested must be described implicitly or 
explicitly as USAGE DISPLAY. 



IBM Extension 



However, this IBM implementation allows the identifier being 
tested to be described as USAGE COMPUTATIONAL-3 . 



End of IBM Extension 



The identifier being tested is determined to be numeric only if 
the contents consist of any combination of the digits through 
9. 

If its PICTURE does not contain an operational sign, the 
identifier being tested is determined to be numeric only if the 
contents are numeric and an operational sign i s not present. 

If its PICTURE does contain an operational sign, the identifier 
being tested is determined to be numeric only if the item is an 
elementary item, the contents are numeric, and a valid 
operational sign is present. 

In the EBCDIC collating sequence, valid embedded operational 
signs are hexadecimal A, B, C, D, E, and F; for items described 
with the SIGN IS SEPARATE clause, valid operational signs are + 
(hexadecimal 4E) and - (hexadecimal 60). 

The NUMERIC test cannot be used with an identifier described as 
alphabetic or as a group item that contains one or more signed 
elementary items. 
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IBM Extension 



This implementation alloMS use of a group item uhose 
subordinates are signed. 



End of IBM Extension 



-X 



The identifier being tested is determined to be alphabetic only 
i f the contents consist of any combination of the alphabetic 
characters A through Z and the space. 

The ALPHABETIC test cannot be used with an identifier described 
as numeric. 

Figure 29 shows valid forms of the class test. 



Type of Identifier 


Valid Forms of the Class Test 


Alphabetic 


ALPHABETIC 


NOT ALPHABETIC 


Alphanumeri c. 
Alphanumeric Edited, 
or Numeric Edited 


ALPHABETIC 
NUMERIC 


NOT ALPHABETIC 
NOT NUMERIC 


External-Decimal or 
Internal- Decimal 


NUMERIC 


NOT NUMERIC 



Figure 29. Valid Forms of the Class Test 



CONDITION-NAME CONDITION 



A condition-name condition causes a conditional variable to be 
tested to determine if its value is equal to (any of) the 
value(s) associated with the condition-name. 

Format 






condition-name 

A condition-name is used in conditions as an abbreviation for 
the relation condition. The rules for comparing a conditional 
variable with a condition name value &rG^ the same as those 
specified for relation conditions. 

If the condition-name is associated with a range of values (or 
with several ranges of values), the conditional variable is 
tested to determine whether or not its value falls within the 
range(s), including the end values. The result of the test is 
true if one of the values corresponding to the condition-name 
equals the value of its associated conditional variable. 

The following example illustrates the usage of condition-names 
and conditional variables^ 

02 GRADE-ID PIC 99. 



88 PRIMARY-OTHER 

88 PRIMARY-FOUR 

88 JUNIOR-HI 

88 SENIOR-HI 



VALUE 
VALUE 
VALUE 



THRU 3, 5, 6, 
THRU 9. 



VALUE 10 THRU 12 
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RELATION CONDITION 



GRADE-ID is the conditional variable; PRIMARY-OTHER, 
PRIMARY-FOUR, JUNIOR-HI, and SENIOR-HI are condition-names. For 
individual records in the file, only one of the values specified 
in the condition-name entries can be present. To determine the 
grade level of a specific record, any of the folloNing can be 
coded •' 

IF PRIMARY-OTHER. . .(which tests for values 1, 2, 3, 5, 6.) 

IF PRIMARY-FOUR... (which tests for value 4.) 

IF JUNIOR-HI... (which tests for values 7, 8, 9.) 

IF SENIOR-HI... (which tests for values 10, 11, 12.) 

Depending on the evaluation of the condition-name condition, 
alternative paths of execution &re taken by the object program. 



A relation condition causes a comparison between two operands, 
either of which may be an identifier, a literal, or an 
arithmetic expression. 

Format 



r GREATER THAN 

I > 

operand-1 IS [NOI^ < LESS THAN 

< 
EQUAL TO 



> operand-2 






Operand-1 is the subject of the relation condition; operand-2 is 
the object of the relation condition. 

Operand-l and operand-2 may each be an identifier, a literal, or 
an arithmetic expression. The relation condition must contain 
at least one reference to an identifier. 

Except when two numeric operands are compared, operand-1 and 
operand-2 must have the same USAGE. 

The relational operator specifies the type of comparison to be 
made. Figure 30 shows relational operators and their meanings. 
Each relational operator must be preceded and followed by a 
space. 



Relational-Operator 

ISC N0T 3 GREATER THAN 
ISCN0T]> 



ISCN0T3 LESS THAN 
ISCN0T]< 



IS [NOT 3 EQUAL TO 
IS[N0T3= 



Meaning 

Greater than or not greater than 



Less than or not less than 
Equal to or not equal to 
Figure 30. Relational Operators and Their Meanings 



Detailed rules for numeric and nonnumeric comparisons are given 
in the following paragraphs. If either of the operands is a 
group item, nonnumeric comparison rules apply. Figure 31 
summarizes the permissible comparisons. 
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^*"~~"~"*--....._^^ Second Operand 
First Operand ~ 


NONNUMERIC OPERANDS 


NUMERIC OPERANDS | 


GR AL AN ANE NE 


FC(I) 

&NNL 


ZR& 

NL 


ED 


BI AE 1 ID 1 


NONNUMERIC OPERANDS 


NN 


NN 


NN 


NN 




Group (GR) 
Alphabetic (AL) 
Alphanumeric (AN) 
Alphanumeric Edited (ANE) 

Numeric Edited (NE) 


Figurative Constant (1) 
(PC) and Nonnumeric 
Literal (NNL) 


NN 






NN 




NUMERIC OPERANDS 


NN 






NU 


NU 


Figurative Constant ZERO (ZR) 
and Numeric Literal (NL) 


External Decimal (ED) 


NN 


NN 


NU 


NU 


NU 


Binary (BI) 

Arithmetic Expression ( AE) 
1 Internal Decimal (ID) | 






NU 


NU 


NU 


NN = comparison as described for nonnumeric operands 
NU = comparison as described for nunieric operands 
blank = comparison is not allowed 

(1) = PC includes all figurative constants except ZERO 



f^ 



y 



Figure 31. Permissible Numeric and Nonnumeric Comparisons 



%.J 



Comparison of Numeric Operands 



For numeric class operands^ their algebraic values ar& compared. 
The length (number of digits) of the operands is not 
significant. 

Zero is considered a unique valuer regardless of sign. 

Unsigned numeric operands are considered positive. 

Regardless of their USAGE, comparison of numeric operands is 
permitted. 



Comparison of Nonnumeric Operands 



Comparison of nonnumeric operands, or of one numeric and one 
nonnumeric operand, is made with respect to the binary collating 
sequence of the character set in use. 

For the EBCDIC character set, the EBCDIC collating sequence is 
used. For the ASCII character set, the ASCII collating sequence 
is used. (Appendix H gives both complete collating sequences.) 
When the PROGRAM COLLATING SEQUENCE clause is specified in the 
OBJECT-COMPUTER paragraph, the collating sequence associated 
with the alphabet-name clause in the SPECIAL-NAMES paragraph is 
used. 
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SIGN CONDITION 



Uihen a nonnumeric and a numeric operand &rei compared^ the 
follouiing rules apply^ 

• If the nonnumeric operand is a literal or an elementary data 
item> the numeric operand is treated as though it Mere moved 
to an alphanumeric elementary data item of the same size, 
and the contents of this alphanumeric data item uere then 
compared with the nonnumeric operand. 

• If the nonnumeric operand is a group item» the numeric 
operand is treated as though it were moved to a group item 
of the same size» and the contents of this group item were 
then compared with the nonnumeric operand. 

(See the rules for the MOVE statement for alphanumeric and group 
move operations.) 

Numeric and nonnumeric operands may be compared only when their 
USAGE, explicitly or implicitly, is the same. In such 
comparisons, the numeric operand must be described as an integer 
literal or data item; noninteger literals and data items must 
not be compared with nonnumeric operands. 

The size of each operand is the total number of characters in 
that operand; the size affects the result of the comparison. 
There are two cases to consider ^ operands of equal size, and 
operands of unequal size. 

OPERANDS OF EQUAL SIZE: Characters in corresponding positions of 
the two operands are compared, beginning with the leftmost 
character and continuing through the rightmost character. 

If all pairs of characters through the last pair test as equal, 
the operands are considered as equal. 

If a pair of unequal characters is encountered, the characters 
are tested to determine their relative positions in the 
collating sequence. The operand containing the character higher 
in the sequence is considered the greater operand. 

OPERANDS OF UNEQUAL SIZE: If the operands are of unequal size, 
the comparison is made as though the shorter operand were 
extended to the right with enough spaces to mdke the operands 
equal in size. 

Note: Valid comparisons for index-names and index data items 
are given in the chapter on Table Handling. 



The sign condition determines whether or not the algebraic value 
of a numeric operand is less than, greater than, or equal to 
zero. 

Format 



I POSITIVE 1 
operand IS CN0I3 < NEGATIVE > 

[ ZERfl J 



The operand being tested must be defined as a numeric 
identifier, or it must be defined as an arithmetic expression 
that contains at least one reference to an identifier. 

The operand is POSITIVE if its value is greater than zero, 
NEGATIVE if its value is less than zero, and ZERO if its value 
is equal to zero. 

An unsigned operand is POSITIVE or ZERO. 
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When NOT is specified, one algebraic test is executed for the 
truth value of the sign condition; for example, NOT ZERO is 
regarded as true when the operand tested is positive or negative 
1 n value. 






SWITCH-STATUS CONDITION 



COMPLEX CONDITIONS 



The switch-status condition determines the on or off status of 
an UPSI switch. 

Format 

condi t i on -name 

The condition-name must be defined in the SPECIAL-NAMES 
paragraph as associated with the ON or OFF value of an UPSI 
switch. (See the description of the SPECIAL-NAMES paragraph in 
the Environment Division chapter.) 

The switch-status condition tests the value associated with the 
condition-name. (The value associated with the condition-name 
is considered to be alphanumeric.) The result of the test is 
true if the UPSI switch is set to the position corresponding to 
condition-name. 



A complex condition is formed by combining simple conditions, 
combined conditions, and/or complex conditions with logical 
connectives, or negating these conditions with logical negation 

The logical connectives used, and their meanings, are shown in 
Figure 32. 



Logical Connective Meaning 

AND Logical conjunction; that is, the truth 

value is true when both conditions 
are true. 

OR Logical inclusive OR; that is, the truth 

value is true when either or both 
conditions are true. 

NOT Logical negation; that is, reversal of 

truth value (the truth value is true if 
the condition is false). 

Figure 32. Logical Connectives and Their Meanings 



Each logical operator must be preceded and followed by a space. 

The truth value of a complex condition, whether parenthesized or 
not, is the truth value that results from the interaction of all 
the stated logical operators on the individual truth values of 
simple conditions, or the intermediate truth values of 
conditions logically combined or logically negated. 

A complex condition can be a negated simple condition or a 
combined condition (which can be negated). 



>s 



K.J 



\ 



116 IBM VS COBOL for OS/VS 






NEGATED SIMPLE CONDITIONS 



A simple condition is negated through the use of the logical 
operator NOT . 

Format 

NOT simple-condition 

The simple-condition to be negated can be a class condition^ a 
condition-name condition* a relation condition, a sign 
condition, or a switch-status condition. The simple-condition 
may not be negated if the condition itself contains a NOT. 

The negated simple-condition gives the opposite truth value as 

the simple condition. That is, if the truth value of the 

simple-condition is true, then the truth value of that same 
negated simple-condition is false. 

Placing a negated simple-condition within parentheses does not 
change its truth value. That is, the following two statements 
are equivalent* 

NOT A IS EQUAL TO B. 

NOT (A IS EQUAL TO B). 



COMBINED CONDITIONS 



Two or more conditions can be logically connected to form a 
combined condition. 

Format 



o 



condi ti on 



I AND 1 



OR 



condi t i on 






The condition to be combined may be any of the following^ 

• A simple-condition 

• A negated simple-condition 

• A combined condition 

• A negated combined condition Cthat is, the NOT logical 
operator followed by a combined condition enclosed in 
parentheses) 

• Combinations of the preceding conditions, specified 
according to the rules given in Figure 33 
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Combined Condition 
Element 


Permissible Position in Combined Condition | 


Leftmost 


When not leftmost may 
be immediately preceded 
by: 


When not rightmost may 
be immediately followed 
by: 


Rightmost 


simple-condition 


yes 


OR 

NOT 
AND 

( 


OR 
AND 

) 


yes 


OR 
AND 


no 


simple-condition 
) 


simple-condition 

NOT 

( 


no 


NOT 


yes 


OR 
AND 

( 


simple-condition 
( 


no 


( 


yes 


OR 

NOT 

AND 

( 


simple-condition 
NOT 

( 


no 


) 


no 


simple-condition 

) 


OR 
AND 

) 


yes 






Figure 33. Combined Conditions — Permissible Element Sequences 



Parentheses are never needed when either AND or OR (but not 
both) is used exclusively in one combined condition. However, 
parentheses may be needed to find a final truth value when a 
combination of AND, OR, and NOT is used. Figure 33 summarizes 
the way i n which conditions and logical operators can be 
combined and parenthesized. 

There must be a one-to-one correspondence between left and right 
parentheses, with each left parenthesis to the left of its 
corresponding right parenthesis. 

Figure 34 illustrates the relationships between logical 
operators and conditions CI and C2 (where CI and C2 are any 
conditions as defined above). 



K..J 



Values 


Values 








NOT NOT 


NOT 


NOT 


For CI 


For C2 


01 AND C2 


CI OR 


02 


(01 AND 02) 01 AND 02 


(01 OR 02) 


01 OR 02 


True 


True 


True 


True 




False False 


False 


True 


False 


True 


False 


True 




True True 


False 


True 


True 


False 


False 


True 




True False 


False 


False 


False 


False 


False 


False 




True False 


True 


True 


Fi gure 


34. Logical Operators and 


Eva 


luation Results of Comb 


ined Conditions 
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Evaluation Rules — Combined Conditions 






If parentheses are used» logical evaluation of combined 
conditions proceeds in the following order? 

1. Conditions uithin parentheses are evaluated first. 

2. Within nested parentheses, evaluation proceeds from the 
least inclusive condition to the most inclusive condition. 

If parentheses are not used (or are not at the same level of 
i nclusi veness) » the combined condition is evaluated in the 
following order? 

1. Arithmetic expressions 

2. Simple-conditions in the following order? 

a. Relation 

b. Class 

c. Condition-name 

d. Switch-status 

e. Sign 

3. Negated simple-conditions in the same order as 2 above 
^. Combined conditions, in the following order? 

a. AND 

b. OR 

5. Negated combined conditions in the same order as 4 above 

6. Consecutive operands at the same evaluation-order level are 
evaluated from left to right 

For example? 

NOT A IS GREATER THAN B OR A + B IS EQUAL TO C AND D IS 
POSITIVE 

is evaluated as if parenthesized as follows? 

(NOT (A IS GREATER THAN B)) OR (((A+B) IS EQUAL TO C) AND (D IS 
POSITIVE)) 

The order of evaluation is as follows? 

1. (A+B) is evaluated, giving some intermediate result, x. 

2. (x IS EQUAL TO C) is evaluated, giving some intermediate 
truth value, tl ♦ 

3. (D IS POSITIVE) is evaluated, giving some intermediate truth 
value, t3 . 

^. (NOT (A IS GREATER THAN B)) is evaluated, giving some 
intermediate truth value, t2 . 

5. tl, AND i3 is evaluated, giving some intermediate truth 
value, t4 . 

6. t^ OR i4 is evaluated, giving the final truth value, and the 
result of the combined condition. 
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ABBREVIATED COMBINED RELATION CONDITIONS 



When relation-conditions are written consecuti vely» any 
relation-condition after the first can be abbreviated byJ 

• Omission of the subjects or 

• Omission of the subject and relational operator. 
Format 



^ 



relation-condition < < 

I 

L 



AND 1 
> 

OR I 



[NOT] 



GREATER THAN 

> 

LESS THAN 

< 

EQUAL TO 



object > 
I 



In any consecutive sequence of relation-conditions, both forms 
of abbreviation can be specified. The abbreviated condition is 
evaluated as if: 

1. The last stated subject is the missing subject. 

2. The last stated relational operator is the missing 
relational operator. 

3. The resulting combined condition must comply with the rules 
for element sequence in combined conditions* as shown in 
Figure 33. 

4. The word NOT is considered part of the relational operator 
in the forms NOT GREATER THAN, NOT >, NOT LESS THAN, NOT <, 
NOT EQUAL TO, and NOT =. 

5. NOT in any other position is considered a logical operator 
(and consequently results in a negated relation-condition). 

Note: The rules for abbreviated combined relation-conditions as 
previously implemented are given in Appendix A. 

Figure 35 shows examples of abbreviated combined 
relation-conditions and their nonabbreviated equivalents. 






Abbreviated Combined 
Rela 1 1 on-Cond i t i on 

A = B AND NOT LESS THAN C OR D 

A NOT GREATER THAN B OR C 

NOT A = B OR C 

NOT (A = B OR LESS THAN C) 

NOT (A NOT = B AND C AND NOT D) 



Nonabbreviated Equivalent 

((A = B) AND (A NOT LESS THAN O) OR (A NOT 
LESS THAN D) 

(A NOT GREATER THAN B) OR (A NOT GREATER 
THAN C) 

(NOT (A = B)) OR (A = C) 

NOT ((A = B) OR (A LESS THAN O) 

NOT ((((A NOT = B) AND (A NOT = O) AND 
(NOT (A NOT = D)))) 



Figure 35. Abbreviated Combined Relation-Condition Equivalents 






J 
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CONDITIONAL STATEMENTS 



IF STATEMENT 



A conditional statement specifies that a truth value of a 
condition is to be determined* and that the subsequent action of 
the object program depends on this truth value. Figure 2^ on 
page 106 gives a list of the conditional statements. 

Only the IF statement is discussed in this chapter; the other 
conditional statements are discussed in conjunction with their 
associated imperative statements* or in the chapters on special 
features. 



The IF statement causes a condition to be evaluated* and 
provides for alternative actions in the object program* 
depending on that truth value. 



Format 



IF condition 



I statement-1 | I ELSE statement-2 I 

< > < > 

I NEXT SENTENCE | I ELSE NEXT SENTENCE | 

L ~ J L J 






The ELSE NEXT SENTENCE phrase may be omitted if it immediately 
precedes the period that ends the conditional sentence. 

The condition may be any simple or complex condition as 
described in the Conditional Expressions chapter. 

Statement-1 or statement-2 can be any one of the following** 

• An imperative statement 

• A conditional statement 

• An imperative statement followed by a conditional statement 

If the condition tested is true * one of the following actions 
takes place: 

1. Statement-1* if specified, is executed. If statement-1 
contains a procedure branching statement* control is 
transferred according to the rules for that statement. If 
statement-1 does not contain a procedure-branching 
statement, the ELSE phrase, if specified, is ignored, and 
control passes to the next executable sentence. 

2. NEXT SENTENCE, if specified, is executed; that is, the ELSE 
phrase, if specified, is ignored, and control passes to the 
next executable sentence. 

If the condition tested is false , one of the following actions 
takes place: 

1. ELSE statement-2* if specified, is executed. If statement-2 
contains a procedure-branching statement, control is 
transferred according to the rules for that statement. If 
statement-2 does not contain a procedure-branching 
statement, control is passed to the next executable 
sentence. 

2. ELSE NEXT SENTENCE, if specified, is executed; that is, 
statement-1, if specified* is ignored, and control passes to 
the next executable sentence. 
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3. If ELSE NEXT SENTENCE is omitted, control passes to the next 
executable sentence. 

Note: When ELSE NEXT SENTENCE is omitted, all statements 
following the condition and preceding the period for the 
sentence are considered to be part of statement-1 . 



Nested IF Statements 



The presence of one or more IF statements within the initial IF 
statement constitutes a "nested IF statement." 

Statement-1 and statement-Z in IF statements may consist of one 
or more imperative statements and/or a conditional statement. 
If an IF statement appears as statement-l or statement-2 or as 
part of statement~l or statement-2, it is said to be nested. 
Nesting statements is much like specifying subordinate 
arithmetic expressions enclosed in parentheses and combined in 
larger arithmetic expressions. 

IF statements contained within IF statements must be considered 
as paired IF and ELSE combinations, proceeding from left to 
right. Therefore, any ELSE encountered must be considered to 
apply to the immediately preceding IF that has not already 
paired with an ELSE. 

Figure 36 shows the logical evaluation for the following nested 
IF statement" 

IF condition-1 statement-l-l 

IF condition-2 

IF condition-3 statement-3-1 

ELSE statement-3-2 

ELSE 5tatement-2-2 

IF condition-^ 

IF condition-5 statement-5-1 

ELSE statement-5-2. 



\.J 
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IF condition-1 

statement-1-1 -♦■ 



IF condition-2 

IF condition-3 



statement- 3 - 1 -♦■ 

ELSE statement-3-2-* 

ELSE statement- 2 -2 -• 



IF condition-4 

IF condition-5- 



statement-5-1- 



ELSE statement-5-2.-*- 
Next executable statement -< 



-statement-1 for IF condition-1- 

-statement-1 for IF condition-2 
-statement-1 for IF condition-3 
•statement-2 for IF condition-3- 



.statement-2 for IF condition-2 

•statement-1 for IF condition-4' 
■statement-1 for IF condition-5 
-statement-2 for IF condition-5 



w w 



Note ; If either condition-1 or condition-4 is false, the next sentence is executed, 
since neither condition has an ELSE. 



Figure 36. Nested IF Statement Evaluation 



o 
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Figure 37 shows possible true/false combinations for the same 
example. 



true 



IF 



.false 



condition-1 



:f 



statement-1-1 
true 



false 



condition-2 



true 



IF 



false 



condition-3 



statement-3-1 



-►ELSE statement-3-2 



-► ELSE statement-2-2 



true 



IF 



false 



condition-4 



true 



false 



IF 



condition-5 



statement-5-1 



ELSE statement-5-2. 



-^►Next sentence in COBOL source program- 



Figure 37. Nested IF Statement — True/False Combinations 






Figure 38 i s a flowchart for the same example. 



o 
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IF" EXECUTION BEGINS 






statement- 1 




statement-3-2 



statement- 2- 2 



FALSE 




statement- 5- 2 



statement-5-1 




TRUE 



statement-3-1 





NEXT 
SENTENCE 



Figure 38. Nested IF Statement — Flowchart 
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DECLARATIVES 



The Declaratives section provides a method of invoking 
procedures that are executed when an exceptional condition 
occurs that cannot usually be tested by the COBOL programmer. 



Format 

PROCEDURE DIVISION [USING identifier-1 



Cidentif ier-2] ...3 



DECLARATIVES , 
{secti on-name 



SECTION Cpri ori ty-number] . 



USE sentence. 



[paragraph-name. [sentence.] 
END DECLARATIVES . 

Declarative procedures are provided for the processing of 
exceptional input/output conditions and debugging procedures. 



IBM Extension 



Declarative procedures are also provided for Report Writer 
report groups. 



End of IBM Extension 



J 



Declarative procedures stre written at the beginning of the 
Procedure Division in a series of Declarative sections. Each 
such section starts with a USE sentence that identifies this 
section's function; the series of procedures that follow specify 
what actions are to be taken when the exceptional condition 
occurs. Each Declarative section ends with the occurrence of 
another section-name followed by a USE sentence^ or with the key 
words END DECLARATIVES. 

The entire group of Declarative procedures is preceded by the 
key word DECLARATIVES* written on the next line after the 
Procedure Division header; the group is followed by the key 
words END DECLARATIVES. The key words DECLARATIVES and END 
DECLARATIVES must each begin in Area A and be followed by a 
period. No other text may appear on the same line. 

In the Declaratives portion of the Procedure Division* each 
section header (with an optional priority number) must be 
followed by a period and a space* and must be followed by a USE 
sentence followed by a period and a space. No other text may 
appear on the same line. There are three forms of the USE 
sentence: 

• USE AFTER EXCEPTION/ERROR 



IBM Extension 



USE BEFORE REPORTING (see chapter on Report Writer) 
End of IBM Extension 



• USE FOR DEBUGGING (see chapter on Debugging) 

The USE sentence itself is never executed; instead* the USE 
sentence defines the conditions that will cause execution of the 
immediately following procedural paragraphs* which specify the 
actions to be taken. After the procedure is executed* control 
is returned to the routine that activated it. 

Within a Declarative procedure* except for the USE statement 
itself* there must be ho reference to any nondeclarati ve 
procedure. 






■-^ 
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Ulithin a Declarative procedure^ no statement may be executed 
that Mould cause execution of a USE procedure that had been 
previously invoked and had not yet returned control to the 
invoking routine. 

An exit from a Declarative procedure is effected by executing 
the last statement in the procedure. 

In this chapter, only the USE AFTER EXCEPTION/ERROR procedure is 
descri bed. 



IBM Extension 



The USE BEFORE REPORTING Declarative procedure is described in 
the chapter on the Report Writer feature. 



End of IBM Extension 



EXCEPTION/ERROR DECLARATIVE 



The EXCEPTION/ERROR Declarative specifies procedures for 
input/output exception or error handling that are to be executed 
in addition to the standard system procedures. 

Format 

section-name SECTION [priority-number]. 



USE AFTER STANDARD 



I EXCEPTION I 
< > 

1 ERROR I 



PROCEDURE 



o 



I file-name-1 Cf i le-name-2] 
I INPUT 
ON < OUTPUT 

I EXTEND 



File-Name Option 



Note: The section-name SECTION and priority-number are not part 
of the USE sentence itself and are only included in the format 
for clarity. 

The Mords EXCEPTION and ERROR are synonymous and may be used 
interchangeably. 



This option is valid for physical sequential and VSAM files. 
Uhen this option is specified, the procedure is executed only 
for the fileCs) named. No file-name can refer to a sort or 
merge file. For any given file, only one EXCEPTION/ERROR 
procedure may be specified; thus, file-name specification must 
not cause simultaneous requests for execution of more than one 
EXCEPTION/ERROR procedure. For example, i f an input file is 
specifically named in one EXCEPTION/ERROR procedure, there must 
not also be an EXCEPTION/ERROR procedure for all INPUT files — if 
both Mere specified, then, when an error occurred involving this 
input file, there would be simultaneous requests for the 
execution of both procedures. 



INPUT option 



This option is valid for physical sequential and VSAM files. 
Uhen this option is specified, the procedure is executed for all 
files opened in INPUT mode. 
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OUTPUT Option 



This option is valid for physical sequential 
When this option is specified* the procedure 
files opened in OUTPUT mode. 



and VSAM files, 
i s executed for 



all 



"~\, 
^ 



l-o Option 



EXTEND Option 



This option is valid for direct access storage physical 
sequential and VSAM files. When this option is specified* the 
procedure is executed for all files opened in I-O mode. 



This option is valid for physical sequential and VSAM sequential 
files. 



IBM Extension 



This option is also valid for sequentially accessed VSAM indexed 
files. 



End of IBM Extension 



When this option is specified* the procedure is executed for all 
files opened in EXTEND mode. 



General Considerations 



The EXCEPTION/ERROR procedure is executed? 

• Either after completing the standard system input/output 
error routine* or 

• Upon recognition of an INVALID KEY or AT END condition when 
an INVALID KEY or AT END option has not been specified in 
the input/output statement* or 

• Upon recognition of an IBM-defined condition that causes 
status key 1 to be set to 9. (See the description of status 
keys in the "Common Processing Facilities" section.) 

After execution of the EXCEPTION/ERROR procedure* control is 
returned to the invoking routine. 

The EXCEPTION/ERROR procedures are activated when an 
input/output error occurs during execution of a READ* WRITE* 
REWRITE* START* or DELETE statement. 

If an OPEN statement is issued for a file already in the open 
status* the EXCEPTION/ERROR procedures are activated* when the 
execution of an OPEN statement is unsuccessful because of any 
other reason* the EXCEPTION/ERROR procedures are not activated. 

If a file is in the OPEN status* and the execution of a CLOSE 
statement is unsuccessful* the EXCEPTION/ERROR procedures are 
activated. If the file is in a closed status and a CLOSE 
statement is issued* the EXCEPTION/ERROR procedures are not 
acti vated. 

Within a Declarative procedure* there must be no reference to 
any nondeclarative procedure. In the nondeclarati ve portion of 
the program* there must be no reference to procedure-names that 
appear in an EXCEPTION/ERROR Declarative procedure* except that 
PERFORM statements may refer to an EXCEPTION/ERROR procedure or 
to procedures associated with it. 

Within an EXCEPTION/ERROR Declarative procedure* no statement 
may be executed that would cause execution of a USE procedure 
that had been previously invoked and had not yet returned 
control to the invoking routine. 



KJ 
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Programming Notes 






EXCEPTION/ERROR procedures can be used to check the status key 
values whenever an input/output error occurs. 

Care should be used in specifying EXCEPTION/ERROR procedures for 
any file. The following notes apply! 

1. At initial OPEN time for any file* the current Declarative 
has not yet been established by the object program. 

2. Therefore* if a file is closed that has never been opened* 
no Declarative can receive control. 

3. However* if this file has been previously opened* the last 
previously established Declarative procedure receives 
control. 

For example: An OPEN OUTPUT statement establishes a 
Declarative procedure for this file* and the file is then 
closed without error. During later processing* if a logic 
error occurs* control will go to the Declarative procedure 
established when the file was opened for OUTPUT. 
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INPUT/OUTPUT STATEMENTS 



( 



^ 
> 



COBOL input/output statements transfer data to and from files 
stored on external mediae and also control loM-volume data that 
is obtained from or sent to such input/output devices as the 
card reader or the console typewriter. 

In COBOL/ the unit of data made available to the program is a 
record/ and the COBOL programmer need only be concerned with 
such records. Provision is automatically made for such 
operations as the movement of data into buffers and/or internal 
storage/ validity checking/ error correction (where feasible)/ 
unblocking and blocking/ and volume switching procedures. 

The description of the file in the Environment Division and Data 
Division governs which input/output statements are allowed in 
the Procedure Division. Required and optional entries for each 
type of file organization are shown in Figure 39 (sequential 
files)/ Figure 40 (VSAM indexed files)/ and Figure 41 (VSAM 
relative files). 

Discussions in this section use the terms volume and reel. The 
term volume refers to all input/output devices. The term reel 
applies only to tape devices. Treatment of direct access 
storage devices in the sequential access mode is logically 
equivalent to the treatment of tape devices. 

There are several common processing facilities that apply to 
more than one input/output statement. These facilities are 
discussed before the descriptions of the separate input/output 
statements. 






o 



130 i BM VS CCTBOL f or OS/VS 



o 



o 



Device 
Type 


ENVIRONMENT DIVISION 


DATA DIVISION 


PROCEDURE DIVISION 
















Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Card 


SELECT 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [INTO] 


Reader 


ASSIGN 


SEQUENTIAL 
ORGANI ZATION 

SEQUENTIAL 
RESERVE 
FILE STATUS 
RERUN . . . RECORDS 


OMITTED 


RECORD CONTAINS 
DATA RECORDS 


CLOSE [LOCK] 


[AT END] 
USE 
( EXCEPTION/ERROR 
(FOR DEBUGGING 


Card 








OPEN OUTPUT 


WRITE [FROM] 


Punch 




SAME [RECORD] 
AREA 






CLOSE [LOCK] 


USE 
j EXCEPTION/ERROR 1 
(FOR DEBUGGING ) 


Printer 


BLOCK CONTAINS 


OPEN OUTPUT 


WRITE [FROM] 










RECORD CONTAINS 


CLOSE [LOCK] 


[ADVANCING] 










DATA RECORDS 




[END-OF-PAGE] 










LINAGE 




USE 
/EXCEPTION/ERROR \ 
BEFORE REPORTING 


1 report! 














I FOR DEBUGGING > 


Tape 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [INTO] 






SEQUENTIAL 


(STANDARD 


RECORD CONTAINS 


CLOSE 


[AT END] 






ORGANIZATION 


(OMITTED 


DATA RECORDS 


[REEL/UNIT 


USE 




■ 


SEQUENTIAL 




CODE-SET 


fREMOVAL 1 1 

[no rewind] 


1 EXCEPTION/ERROR 1 






RESERVE 




LINAGE 


FOR DEBUGGING ) 






FILE STATUS 






[NO rewind] 








RERUN 






[LOCK] 








RECORDS j 
REEL/UNIT 
















BLOCK CONTAINS 


OPEN 


WRITE [FROM] 






SAME 




RECORD CONTAINS 


(output! 


[ADVANCING] 








■ RECORD 






DATA RECORDS 


I EXTEND) 


[END-OF-PAGE] 








SORT 






CODE-SET 


CLOSE 


USE 








SORT-MERGE. 






LINAGE 


[REEL/UNIT 
("REMOVAL "1 1 
LNO REWINDJ 




r EXCEPTION/ERROR 


AREA 
MULTIPLE FILE 


[BEFORE REPOHTJNOI 
I FOR DEBUGGING 


1 REPORT 1 






TAPE 






[NO REWIND] 
[LOCK] 




Direct 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [INTO] 


Access 




SEQUENTIAL 


STANDARD 


RECORD CONTAINS 


CLOSE 


[AT END] 


Storage 




ORGANIZATION 




DATA RECORDS 


[REEL/UNIT 


USE 


(Physi- 




SEQUENTIAL 






[REMOVAL l ] 
[no REWINDJ 


I EXCEPTION/ERROR 


cal 




RESERVE 






(FOR DEBUGGING 


Sequen- 




FILE STATUS 






[NO REWIND] 




tial) 




RERUN 

(RECORDS 
(REEL/UNIT 






[LOCK] 










BLOCK CONTAINS 


OPEN I-O 


READ [INTO] 






SAME 




RECORD CONTAINS 


CLOSE 


[AT END] 








RECORD 






DATA RECORDS 


[REEL/UNIT 


REWRITE [FROM] 








SORT 






LINAGE 


fREMOVAL I ] 

LNO rewindJ 


WRITE [FROM] 








SORT-MERGE 








USE 






AREA 






[NO REWIND] 
[LOCK] 


EXCEPTION/ERROR 
FOR DEBUGGING 


BLOCK CONTAINS 


OPEN 


WRITE [FROM] 










RECORD CONTAINS 


(OUTPUT 


[ADVANCING] 










DATA RECORDS 


(extend 


[END-OF-PAGE] 










LINAGE 


CLOSE 


USE 












[REEL/UNIT 
[REMOVAL ") , 

[no rewindJ ' 




f EXCEPTION/ERROR 


1 REPORT 1 


BEFORE REPORTING 




I FOR DEBUGGING 












[NO REWIND] 














[LOCK] 




Direct 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [INTO] 


Access 




SEQUENTIAL 


(STANDARD 


RECORD CONTAINS 


CLOSE [LOCK] 


[AT END] 


Storage 




ORGANIZATION 


OMITTED 


DATA RECORDS 




USE 


(VSAM) 




SEQUENTIAL 








EXCEPTION/ERROR! 
FOR DEBUGGING / 






RESERVE 










1 PASSWORD 1 


OPEN 1-0 
CLOSE [LOCK] 


READ [INTO] 
[AT END] 








FILE STATUS 








REWRITE [FROM] 






RERUN.. .RECORDS 








USE 






SAME 








EXCEPTION/ERROR 1 








RECORD 








(FOR DEBUGGING | 








SORT 
















firfOT-Mwaizv 














AREA 






OPEN 

(output! 

EXTEND) 
CLOSE [LOCK] 


WRITE [FROM] 

USE 

(EXCEPTION/ERROR 
[FOR DEBUGGING 



Figure 39. Sequential Files — Required and Optional Entries 
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I nput/Out put Statement s 1 3 1 



Access 


ENVIRONMENT DIVISION 


DATA DIVISION 


PROCEDURE DIVISION 


Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Sequen- 


SELECT 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [NEXT] 


tial 


ASSIGN 


SEQUENTIAL 


(STANDARD! 


RECORD CONTAINS 


CLOSE [LOCK] 


[INTO] 




ORGANIZATION 


ALTERNATE RECORD 


lOMITTED / 


DATA RECORDS 




[AT END] 




INDEXED 


KEY 








START [KEY] 

[INVALID KEY] 




RECORD KEY 




















[PASSWORD] 










USE 






[PASSWORD] 














( EXCEPTION /ERROR! 










L_ 1 


[DUPLICATES] 








I FOR DEBUGGING ) 






RESERVE 
FILE STATUS 






OPEN OUTPUT 


WRITE [FROM] 






RERUN . . . RECORDS 












[INVALID KEY] 












SAME [RECORD] 
AREA 








OPEN EXTEND 




USE 

I EXCEPTION/ERROR 1 






















CLOSE [LOCK] 


\FOR DEBUGGING 1 


OPEN I-O 


READ [NEXT] 












CLOSE [LOCK] 


[INTO] 

[AT END] 
START [KEY] 

[INVALID KEY] 
REWRITE [PROM] 

[INVALID KEY] 
DELETE 
USE 

( EXCEPTION/ERROR! 

I FOR DEBUGGING 1 


Random 


SELECT 


ALTERNATE RECORD 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [INTO] 




ASSIGN 
ORGANIZATION 


KEY 


(STANDARD! 
lOMITTED j 


RECORD CONTAINS 
DATA RECORDS 


CLOSE [LOCK] 


[INVALID KEY] 
USE 














INDEXED 




[PASSWORD] 










I EXCEPTION/ERROR! 




ACCESS 














I FOR DEBUGGING 1 










RANDOM 


[DUPLICATES] 
















RECORD KEY 


RESERVE 






OPEN OUTPUT 
CLOSE [LOCK] 


WRITE [FROM] 

[INVALID KEY] 










FILE STATUS 










[PASSWORD] 




RERUN . . . RECORDS 
SAME [RECORD] 








USE 

( EXCEPTION/ERROR! 
















AREA 








I FOR DEBUGGING 1 


OPEN 1-0 


READ [INTO] 












CLOSE [LOCK] 


[INVALID KEY] 
WRITE [FROM] 

[INVALID KEY) 
REWRITE [FROM] 

[INVALID KEY] 
DELETE 

[INVALID KEY] 
USE 

( EXCEPTION /ERROR! 

I FOR DEBUGGING I 


Dynamic 


SELECT 


ALTERNATE RECORD 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


USE 




ASSIGN 


KEY 


(STANDARD! 
lOMITTED 1 


RECORD CONTAINS 
DATA RECORDS 


CLOSE [LOCK] 


( EXCEPTION/ERROR! 
I FOR DEBUGGING I 




ORGANIZATION 












INDEXED 




[PASSWORD] 










(sequential request) 




ACCESS 














READ NEXT [INTO] 










DYNAMIC 


[DUPLICATES] 








[AT END] 




RECORD KEY 


RESERVE 
FILE STATUS 








START [KEY] 

[INVALID KEY] 




















[PASSWORD] 




RERUN . . . RECORDS 
SAME [RECORD] 








(random request) 
READ [INTO] 
















AREA 








[INVALID KEY] 


OPEN OUTPUT 


WRITE [FROM] 












CLOSE [LOCK] 


[INVALID KEY] 
USE 

( EXCEPTION/ERROR I 
(FOR DEBUGGING / 


OPEN 1-0 


USE 












CLOSE [LOCK] 


( EXCEPTION /ERROR! 
I FOR DEBUGGING ) 


























(sequential request) 














READ NEXT [INTO] 














[AT END] 














START [KEY] 














[INVALID KEY] 














(random request) 














READ [INTO] 














[INVALID KEY] 














WRITE [FROM] 














[INVALID KEY] 














REWRITE [FROM] 














[INVALID KEY] 














DELETE 














[INVALID KEY] 






/^"^-\ 

'v^' 



Figures 40. VSAM Indexed Direct Access Storage Files — Required and Optional Entries 
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Access 


ENVIRONMENT DIVISION 


DATA DIVISION 


PROCEDURE DIVISION 


Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Required Entries 


Optional Entries 


Sequen- 


SELECT 


ACCESS 


LABEL RECORDS 


BLOCK CONTAINS 


OPEN INPUT 


READ [NEXT] 


tial 


ASSIGN 


SEQUENTIAL 


standard! 


RECORD CONTAINS 


CLOSE [LOCK] 


[INTO] 




ORGANIZATION 


RELATIVE KEY 


OMITTED 1 


DATA RECORDS 




[AT END] 














START [KEY] 

[INVALID KEY] 








PASSWORD 




























RESERVE 








EXCEPTION/ERROR 






FILE STATUS 
RERUN. . .RECORDS 








FOR DEBUGGING 


OPEN OUTPUT 


WRITE [FROM] 






SAME [RECORD] 






CLOSE [LOCK] 


[INVALID KEY] 






AREA 








USE 

/EXCEPTION/ERROR 
JFOR DEBUGGING 


OPEN I-O 


READ [NEXT ] 












CLOSE [LOCK] 


[INTO] 

[AT END] 
REWRITE [FROM] 

[INVALID KEY] 
START [KEY] 

[INVALID KEY] 
DELETE 
USE 

(EXCEPTION/ERROR 
I FOR DEBUGGING 


Random 


SELECT 
ASSIGN 








LABEL RECORDS 
( STANDARD 1 


BLOCK CONTAINS 
RECORD CONTAINS 


OPEN INPUT 
CLOSE [LOCK] 


READ [INTO] 

[INVALID KEY] 


PASSWORD 


















RELATIVE 


RESERVE 








/EXCEPTION/ERROR) 




ACCESS 


FILE STATUS 
RERUN . . . RECORDS 








JFOR DEBUGGING ) 
















RELATIVE KEY 


SAME [RECORD] 
AREA 






OPEN OUTPUT 
CLOSE [LOCK] 


WRITE [FROM] 
[INVALID KEY] 

USE 

1 EXCEPTION /ERRORl 
jFOR DEBUGGING ) 


OPEN 1-0 


READ [INTO] 












CLOSE [LOCK] 


[INVALID KEY] 
WRITE [FROM] 

[INVALID KEY] 
REWRITE [FROM] 

[INVALID KEY] 
DELETE 

[INVALID KEY] 
USE 

EXCEPTION/ERRORl 
FOR DEBUGGING / 


Dynamic 














ASSIGN 


1 PASSWORD 1 


1 STANDARD 1 


RECORD CONTAINS 


CLOSE [LOCK] 


1 EXCEPTION/ERRORl 




ORGANIZATION 




1 OMITTED 


DATA RECORDS 




|F0R DEBUGGING f 




RELATIVE 


RESERVE 








(sequential request) 




ACCESS 


FILE STATUS 








READ NEXT [INTO] 




DYNAMIC 


RERUN. . .RECORDS 








[AT END] 




RELATIVE KEY 


SAME [RECORD] 
AREA 








START [KEY] 

[INVALID KEY] 
(random request) 
READ [INTO] 

[INVALID KEY] 


OPEN OUTPUT 


WRITE [FROM] 












CLOSE [LOCK] 


[INVALID KEY] 
USE 

1 EXCEPTION/ERRORl 
|FOR DEBUGGING 


OPEN 1-0 


USE 












CLOSE [LOCK] 


1 EXCEPTION/ERROR 

JFOR DEBUGGING 
(sequential request) 
READ NEXT [INTO] 

[AT END] 
START [KEY] 

[INVALID KEY] 
(random request) 
READ [INTO] 

[INVALID KEY] 
WRITE [FROM] 

[INVALID KEY] 
REWRITE [FROM] 

[INVALID KEY] 
DELETE 

[INVALID KEY] 



Figure 41. VSAM Relative Direct Access Storage Files — Required and Optional Entries 
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COMMON PROCESSING FACILITIES 



Status Key 



The common processing facilities provided ares status key, if 

invalid key condition, INTO/FROM identifier option, and current \^^ 
record pointer. All are discussed in following sections. 



If the FILE STATUS clause is specified in the File-Control 
entry, a value is placed in the specified Status Key (the 
2-character data item named in the FILE STATUS clause) during 
execution of any request on that file; the value indicates the 
status of that request. The value is placed in the Status Key 
before execution of any EXCEPTION/ERROR Declarative or INVALID 
KEY/AT END option associated with the request. 

The first character of the Status Key is known as Status Key 1; 
the second character is known as Status Key 2. For VSAM files, 
combinations of possible values and their meanings are shown in 
Figure A2; for physical sequential files, these combinations are 
shown in Figure 43. 
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Status Key 1 


Meaning 


Status Key 2 


Meaning 


Value 




Value 







Successful completion 





No further information 






2 


Duplicate key, and DUPLICATES specified 


1 


At End (no next logical record, or an 





No further information 




OPTIONAL file not available at 








OPEN time) 






2 


Invalid Key 




1 


No further information 
Sequence error 






2 


Duplicate key, and duplicate keys not allowed 






3 


No record found 






4 


Boundary violation (indexed or relative file) 


3 


Permanent error (data check, parity 
check, transmission error) 





No further information 






4 


Boundary violation (sequential file) 


9 


Other Errors 



1 


No further information 
Password failure 






2 


Logic error 






3 


Resource not available 






4 


No current record pointer for sequential request 






5 


Invalid or incomplete file information 






6 


No file identification (see System Dependencies 
chapter) 



Figure ^2. Status Key Values and Meanings — VSAM Files 
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Status 


Key! 


Meaning 


Status Key 2 


Meaning 


Value 






Value 









Successful Completion 





No further information 


1 




At End (no next logical record, or an 





No further information 






OPTIONAL file not available at 










OPEN time) 






3 




Permanent Error (data check, parity 
check, transmission error) 




4 


No further information 
Boundary violation 


9 




Other Errors 




2 
6 


No further information 

Logic error 

No file identification (see System Dependencies 
chapter) 






Figure 43. Status Key Values and Meanings — Physical Sequential Files 



Invalid Key Condition 



The INVALID KEY condition can occur during execution of a START, 
READ, WRITE, REWRITE, or DELETE statement. CFor details of the 
causes for the condition, see the discussions of those 
statements.) When the INVALID KEY condition is recognized, the 
following actions are taken in the following order' 

1. If the FILE-STATUS clause is specified in the File-Control 
entry, a value is placed into the Status Key to indicate an 
INVALID KEY condition (see Figure 41 and Figure 42). 

2. If the INVALID KEY option is specified in the statement 
causing the condition, control is transferred to the INVALID 
KEY imperative-statement. Any EXCEPTION/ERROR declarative 
procedure specified for this file is not executed. 

3. If the INVALID KEY option is not specified, but an 
EXCEPTION/ERROR declarative procedure is specified for the 
file, the EXCEPTION/ERROR procedure is executed. 

When an INVALID KEY condition occurs, the input/output statement 
which caused the condition is unsuccessful. 

If the INVALID KEY option is not specified for a file, an 
EXCEPTION/ERROR procedure must be specified. 



V. 



.-.-J" 



IBM Extension 



However, this implementation allows both the INVALID KEY option 
and the EXCEPTION/ERROR procedure to be omitted. 



End of IBM Extension 



INTO/FROM Identifier Option 



> 



This option is valid for READ, REWRITE, and WRITE statements 
The specified identifier must be the name of an entry in the 
Working-Storage Section, the Linkage Section, or of a record 
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descrtption for another previously opened file. 

Record-name/file-name and identifier must not refer to the same 
storage area. The statements take the follouiing forms 

I READ file-name RECORD INTO 
I 

< I WRITE I > identifier 
I < > record-name FROM | 
I I REWRITE I I 

U L J J 

The INTO identifier option makes a READ statement equivalent to 

READ file-name 

MOVE record-name TO identifier 

After successful execution of the READ statement* the current 
record becomes available in both the record-name and the 
i denti f i er . 

The FROM identifier option makes a REWRITE or WRITE statement 
equivalent to 

MOVE identifier TO record-name 

I REWRITE 1 

< > record-name 
I WRITE I 

L J 

After successful execution of the WRITE or REWRITE statement, 
the current record may no longer be available in record-name, 
but is still available in identifier. 

In both options, the implicit move is executed according to MOVE 
statement rules without the CORRESPONDING option. 



Current Record Pointer 



Conceptually, the current record pointer identifies a particular 
record accessed by a sequential input request; the record 
identified depends on the statement being executed: 

• The OPEN statement positions the current record pointer at 
the first record in the file. 

• For the READ statement, the following considerations apply? 

— If the OPEN statement positioned the current record 
pointer, the record identified by the current record 
pointer is made available. 

— If a previous READ statement positioned the current 
record pointer, the current record pointer is updated to 
point to the next existing record in the file; that 
record is then made available. 

• The START statement positions the current record pointer at 
the first record in the file that satisfies the implicit or 
explicit comparison specified in the START statement. 

The setting of the Current Record Pointer is affected only by 
the OPEN, START, and READ statements. The concept of the 
Current Record Pointer has no meaning for random access or for 
output files. 



o 
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OPEN STATEMENT 



The OPEN statement initiates the processing of files, 
performs checking and/or writing of labels* and other 
input/output operations. 

Format 1 — Sequential Files 



It also 



INPUT file-name-1 | 



REVERSED 



Cf i le-name-2 



OPEN 



I WITH NO REMIND | 

L J 



REVERSED 

WITH NO REWIND 



OUIPUI file-name-3 [WITH NO REWIND ] 

tfile-name-4 [WITH NO REWIND ] ] 
I-O file-name-5 Cf i le-name-6] ... 
EXTEND file-name-7 Cf i le-name-8] ... 

Format 2 — VSAM Indexed Files 

I INPUT file-name-1 Cfi le-name-2] ... 
I 

I OUTPUT file-name-3 Cf i le-name-4] ... 
1 ~ 

OPEN < 1-0 file-name-5 Cfi le-name-6] ... 



\^y 



EXTEND file-name-7 Cfi le-name-8] ... 



Format 3 — VSAM Relative Files 



I INPUT file-name-1 Cfi le-name-2] ... 
OPEN I OUTPUT file-name-3 Cf i le-name-4] ... 
I 1-0 file-name-5 Cfi le-name-6] ... 



Each file-name designates a file upon which the OPEN statement 
is to operate. The specified f i les need not have the same 
organization or access. Each file-name must be defined in an FD 
entry in the Data Division* and must not name a sort or merge 
file. The FD entry must be equivalent to the information 
supplied when the file was defined. 

The successful execution of an OPEN statement determines the 
availability of the file and results in that file being in open 
mode. Before successful execution of the OPEN statement for a 
given file, no statement — except for a SORT or MERGE statement 
with the USING or GIVING option- — can be executed which refers 
explicitly or implicitly to that file. The successful execution 
of the OPEN statement makes the associated record area available 
to the program; it does not obtain or release the first data 
record. 

At least one of the options INPUT, OUTPUT, I-O, or EXTEND must 
be specified; there may not be more than one specification of 
each option, although more than one file-name may be specified 
in each option. The INPUT, OUTPUT, I-O, or EXTEND options may 
appear in any order. 
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The INPUT option permits opening of the file for input 
operations. 

The I-O option permits opening of the file for both input and 
output operations. The 1-0 option may be specified only for 
files assigned to direct access storage devices. 

The INPUT and 1-0 options must not be specified when the file 
has not already been created. See the System Dependencies 
chapter. 

The OUTPUT option permits opening of the file for output 
operations. This option can be specified uihen the file is being 
created. (The OUTPUT option must not be specified for a file 
which contains records* or which has contained records that have 
been deleted.) 

The EXTEND option is valid only for sequential files and permits 
opening the file for output operations. It is discussed in the 
following section on Sequential Files. 



IBM Extension 



This IBM implementation also allows the EXTEND option to be 
specified for VSAM indexed files. 



End of IBM Extension 



o 



A file may be opened for INPUT, OUTPUT, I-O, or EXTEND in the 
same program. After the first OPEN statement execution for a 
given file, each subsequent OPEN statement execution must be 
preceded by a successful CLOSE file statement execution without 
the LOCK option. 

If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the OPEN 
statement is executed. 

If an OPEN statement is issued for a file already in the open 
status, the EXCEPTION/ERROR procedure (if specified) for this 
file is executed. 

When opening a file, the NO REWIND option has no effect on file 
positioning. It appears in the format for language consistency, 
When either NO REWIND or no option is specified, positioning of 
a file is specified with the LABEL parameter of the DD 
statement. (NO REWIND on the OPEN statement specifies no 
rewinding at close time.) 



Format 1 — Sequential Files 



The EXTEND option permits ope 
indexed f i le f or output opera 
statement is executed, the fi 
records immediately following 
record with the highest prime 
last record.) Subsequent WRI 
file were opened for OUTPUT, 
when a file is being created; 
file that contains records, o 
have been deleted. 



ning a sequentially accessed 
tions. When an OPEN EXTEND 
le is prepared for the addition of 
the<^s1E"lFecor^in the file. (The 
recor6*n<eS7" vaTue is considered the 
TE statements add records as if the 
The EXTEND option can be specified 
it can also be specified for a 
r that has contained records which 



Execution of an OPEN INPUT or OPEN 1-0 statement sets the 
Current Record Pointer to the first record existing in the file. 
If no records exist in the file, the Current Record Pointer is 
set so that execution of the first READ statement results in an 
AT END condition. 

For an INPUT file, if SELECT OPTIONAL is specified in the 
File-Control entry, OPEN statement execution causes the object 
program to check for the presence or absence of this file. If 
the file is absent, the first READ statement causes the AT END 
condition to occur. (See the chapter on System Dependencies.) 
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PHYSICAL SEQUENTIAL FILES: The REVERSED and NO REWIND options 

are valid for this type of file; these options are valid only #^^ 

for single reel files. (See the System Dependencies chapter.) 



If the PASSWORD clause is specified in the File-Control entry* 
the password data item must contain the valid password before 
the OPEN statement is executed. If the valid password is not 
present » the OPEN statement execution is unsuccessful. 



End of IBM Extension 



Format 2 — VSAM Indexed Files 






The following rules applys 

• When the REVERSED, NO REWIND, or EXTEND options are not 
specified, OPEN statement execution positions the file at 
i ts begi nni ng. 

• When NO REWIND is specified, OPEN statement execution does 
not reposition the file; prior to OPEN statement execution, 
the file must be positioned at its beginning. 

• When REVERSED is specified, OPEN statement execution 
positions the file at its end. Subsequent READ statements 
make the data records available in the reverse order, 
starting with the last record. 

If the concept of reels has no meaning for the storage medium 
(for example, a direct access storage device), the REVERSED and 
NO REWIND options do not apply. 

If label records are specified for the file, when the OPEN 
statement is executed, the labels are processed according to the 
standard label conventions, as follows^ 

• INPUT filesJ the beginning labels are checked 

• OUTPUT files: the beginning labels are written 

• I-O files: the labels are checked; new labels are then 
wri tten . 

• EXTEND files: the following procedures are executed: 

1. Beginning file labels are processed only if this is a l 
single-volume file. X.^ 

2. Beginning volume labels of the last existing volume are 
checked. 

3. Existing ending file labels are checked; they are then 
deleted. 

4. Processing continues as if the file were opened as an 
OUTPUT file. 

When label records are specified but not present, or when label 
records are present but not specified, execution of the OPEN 
statement is unpredictable. 

VSA^f SEQUENTIAL FILES: The concept of reels has no meaning in 
VSAM file organization; therefore, the REVERSED and NO REWIND 
options must not be specified. 

Label processing is not performed for VSAM sequential files. 

I IBM Extension 1 



Execution of an OPEN INPUT or OPEN 1-0 statement sets the | ^ 

Current Record Pointer to the first record existing in the file; \^/ 
the record with the lowest prime record key value is considered 
to be the first record. If no records exist in the file, the 
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Current Record Pointer is set so that the first Format 1 READ 
statement executed results in an AT END condition. 
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For most types of file processing^ every password data item 
specified for an indexed file must contain a valid password 
before the OPEN statement can be successfully executed. For 
details/ see the System Dependencies chapter on the PASSWORD 
clause. 



End of IBM Extension 



Format 3 — VSAM Relative Files 
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Execution of an OPEN INPUT or OPEN I-O statement sets the 
Current Record Pointer to the first record existing in the file; 
the record with the lowest relative record number is considered 
the first record in the file. If no records exist in the file^ 
the Current Record Pointer is set so that the first Format 1 
READ statement executed results in an AT END condition. 



IBM Extension 



If the PASSWORD clause is specified in the File-Control entry 
for this f i le» the password data item must contain the valid 
password before the OPEN statement is executed. If the valid 
password is not present, the OPEN statement execution is 
unsuccessful . 



End of IBM Extension 



WRITE STATEMENT 



The WRITE statement releases a logical record for an output or 
input/output file. 

Format 1 — Physical Sequential Files 

WRITE record-name [FROM identifier] 

[ [ identifier-2 ] \ LINE 1 



I < 

I I integer 

J L 



I BEFORE 1 

C < > ADVANCING < r -i 

I AFTER I I I mnemonic-name | 

t J I < > 

I I PAGE ! 

L I. J 



> I LINES I 

L J 



> ] 



[ END-OF-PAGE ] 
CAT < > imperative-statement] 

I ISP I 

L J 
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Format 2 — VSAM Sequential Files 

UlRITE record-name [ FROM identifier] (f ^ 

Format 3 — VSAM Indexed and Relative Files 

MRITE record-name C FROM identifier] 

[ INVALID KEY imperative-statement] 

Uhen the WRITE statement is executed, the associated file must 
be open in OUTPUT, the I-O, or EXTEND mode. 

Record-name must be the name of a logical record in the File 
Section of the Data Division. Record-name may be qualified. 
Record-name must not be associated with a sort or merge file. 

The maximum record size for the file is established at the time 
the file is created, and cannot subsequently be changed. 

Execution of the WRITE statement releases a logical record to 
the file associated with record-name. 

After the WRITE statement is executed, the logical record is no 
longer available in record-name, unless^ 

• The associated file is named in a SAME RECORD AREA clause 
(in which case the record is also available as a record of 
the other files named in the SAME RECORD AREA clause), or 

• The WRITE statement is unsuccessful because of a boundary 
violation. 

In either of these two cases, the logical record is still 
available in record-name. 

If the FROM identifier option is specified, then after the WRITE (^ \ 
statement is executed, the information is still available in \^.J^^ 
identifier, even though it may not be in record-name. (See 
"INTO/FROM identifier Option" in the preceding Common Processing 
Facilities Section.) 

The Current Record Pointer is not affected by execution of the 
WRITE statement. 

The number of character positions required to store the record 
in a file may or may not be the same as the number of character 
positions defined by the logical description of that record in 
the COBOL program. (See the descriptions of the PICTURE and 
USAGE clauses in the Data Division chapter.) 

If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the WRITE 
statement is executed, whether or not execution is successful. 



Format 1 — Physical Sequential Files 



When an attempt is made to write beyond the externally defined 
boundaries of the file, WRITE statement execution is 
unsuccessful and an EXCEPTION/ERROR condition exists. The 
status key, if specified, is updated, and if an explicit or 
implicit EXCEPTION/ERROR procedure is specified for the file, 
the procedure is executed; i f no such procedure is specified, 
the results are unpredictable. 

The ADVANCING and END-OF-PAGE options control the vertical 
positioning of each line on a printed page. 

ADVANCING OPTION^ When this option is omitted, automatic line 
advancing is provided as i f the user had written AFTER ADVANCING 
1 LINE. 



\J 
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Ulhen this option is specified^ the follouing rules apply: 

• When BEFORE ADVANCING is specifiecl> the line is printed 
before the page is advanced. 

• klhen AFTER ADVANCING is specified^ the page is advanced 
before the line is printed. 

• Uhen identifier-2 is specified^ the page is advanced the 
number of lines equal to the current value in identifiei — 2. 
Identifier-2 must name an elementary integer data item. 

• Uhen integer is specified* the page is advanced the number 
of lines equal to the value of integer. 

• Integer or the value in identifiei — 2 may be zero. 

• Ulhen mnemonic-name is specified* a skip to channels 1 
through 9, 10 through 12» or space suppression takes place. 
Mnemonic-name must be equated with funct i on-name-1 in the 
SPECIAL-NAMES paragraph (valid function-names are listed in 
the System Dependencies chapter). This option is not valid 
if a LINAGE clause is specified in the FD entry for this 
file. 



IBM Extension 1 

The mnemonic-name option may also be specified for stacker 
selection with a card punch file. Uihen using stacker 
selection, WRITE AFTER ADVANCING must be used. 



End of IBM Extension 



• When PAGE is specified* the record is printed on the logical 
page BEFORE or AFTER (depending on the option used) the 
device is positioned to the next logical page. If PAGE has 
no meaning for the device used* then BEFORE or AFTER 
(depending on the option specified) ADVANCING 1 LINE is 
provided. 

If the FD entry contains a LINAGE clause* the repositioning 
is to the first printable line of the next page* as 
specified in that clause. If the LINAGE clause is omitted* 
the repositioning is to channel 1 of the carriage control 
tape (that is* to line 1 of the next succeeding page). 

See the System Dependencies chapter. 

LINAGE-COUNTER Rules: If the LINAGE clause is specified for this 
file* the associated LINAGE-COUNTER special register is modified 
during the execution of the WRITE statement* according to the 
following rules: 

• If ADVANCING PAGE is specified, LINAGE-COUNTER is reset to 
1. 

• If ADVANCING identifiei — 2 or integer is specified* 
LINAGE-COUNTER is incremented by the value in identifier-2 
or integer. 

• If the ADVANCING option is omitted, LINAGE-COUNTER is 
incremented by 1 . 

• When the device is repositioned to the first writable line 
of a new page, LINAGE-COUNTER is reset to 1. 

END-OF-PAGE OPTION: The key words END-OF-PAGE and EOP are 
equivalent. 

When the END-OF-PAGE option is specified* the FD entry for this 
file must contain a LINAGE clause. When END-OF-PAGE is 
specified, and the logical end of the printed page is reached 
during execution of the WRITE statement, the END-OF-PAGE 
imperative-statement is executed. 
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The logical end of the printed page is specified in the 
associated LINAGE clause. 

An END-0F-PA6E condition is reached when execution of a WRITE \.^ 

END-0F-PA6E statement causes printing or spacing within the 

footing area of a page body. This occurs when execution of such 

a IfJRITE statement causes the value in the LINAGE-COUNTER special 

register to equal or exceed the value specified in the WITH 

FOOTING option of the LINAGE clause. The WRITE statement is 

executed^ and then the END-OF-PAGE imperative-statement is 

executed. 

An automatic page overflow condition is reached when the 
execution of any given WRITE statement (with or without the 
END-OF-PAGE option) cannot be completely executed within the 
current page body. This occurs when a WRITE statements if 
executed^ would cause the value in the LINAGE-COUNTER to exceed 
the number of lines for the page body specified in the LINAGE 
clause. In this case, the line is printed BEFORE or AFTER 
(depending on the option specified) the device is repositioned 
to the first printable line on the next logical page^ as 
specified in the LINAGE clause. If the END-OF-PAGE option is 
specified, the END-OF-PAGE imperative-statement is then 
executed. 

If the WITH FOOTING option of the LINAGE clause is not 
specified, the END-OF-PAGE condition and the automatic page 
overflow condition occur simultaneously, since no end-of-page 
condition as distinct from the page overflow condition can be 
detected. 

If the WITH FOOTING option is specified, but the execution of a 
given WRITE statement would cause the LINAGE-COUNTER to exceed 
both the footing value and the page body value specified in the 
LINAGE clause, then both the end-of-page condition and the 
automatic page overflow condition occur simultaneously. ^ v 

i ' 
HULTIVOLUME FILES: The following discussion applies to all \,J^ 

multivolume tape files and multi volume physical sequential 
direct access storage files. 

When end-of-volume is recognized for a multivolume OUTPUT file, 
the WRITE statement performs the following operations^ 

• The standard ending volume label procedure 

• A volume switch 

• The standard beginning volume label procedure 

Format 2 — VSAM Sequential Files 

The INVALID KEY option must not be specified. 

When an attempt is made to write beyond the externally defined 
boundaries of the file, the execution of the WRITE statement is 
unsuccessful, and an EXCEPTION/ERROR condition exists. The 
contents of record-name are unaffected. If specified, the 
status key is updated, and, if an explicit or implicit 
EXCEPTION/ERROR procedure is specified for the file, the 
procedure is executed; if no such procedure is specified, the 
results are unpredictable. 

Format 3 — VSAM Indexed and Relative files 

This format is valid only for VSAM indexed and relative files. 



VSAM INDEXED FILES'- When the WRITE statement is executed, the 
system releases the record, using the record keys specified so 
that later access to the record can be based on any of the 
specified keys. Before the WRITE statement is executed, the 
user must set the prime record key (the RECORD KEY data item, as 
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defined in the File-Control entry) to the desired value. (Note 
that RECORD KEY values must be unique within a file.) 

If the ALTERNATE RECORD KEY clause is also specified in the 
File-Control entry> each alternate record key must be unique^ 
unless the DUPLICATES option is specified. If the DUPLICATES 
option is specified/ alternate record key values may be 
nonunique. In this case^ the system stores the records so that 
later sequential access to the records allouis retrieval in the 
same order they Mere stored. 

When ACCESS IS SEQUENTIAL is specified in the File-Control 
entry/ records must be released in ascending order of RECORD KEY 
values. 

When ACCESS IS RANDOM or ACCESS IS DYNAMIC is specified in the 
File-Control entry, records may be released in any 
programmei — specified order. 

INVALID KEY Option: This option must be specified if an explicit 
or implicit EXCEPTION/ERROR procedure is not specified for this 
file. 



IBM Extension 1 



However/ this IBM implementation allows both the INVALID KEY 
option and the EXCEPTION/ERROR procedure to be omitted. 



End of IBM Extension 



When the INVALID KEY condition is recognized/ WRITE statement 
execution is unsuccessful/ and the contents of the record are 
unaffected. Program execution proceeds according to the rules 
stated in the preceding INVALID KEY Condition section. An 
INVALID KEY condition is caused by any of the following? 

• When ACCESS SEQUENTIAL is specified/ and the file is opened 
OUTPUT/ and the value of the prime record key is not greater 
than that for the previous record. 

• When the file is opened 1-0/ and the value of the prime 
record key equals that of an already existing record. 

• When the file is opened OUTPUT or 1-0/ and the value of an 
ALTERNATE RECORD KEY for which duplicates are not allowed 
equals that of an already existing record. 

• When an attempt is made to write beyond the 
externally-defined boundaries of the file. 



IBM Extension 



The INVALID KEY conditions that apply to an indexed file in 
OPEN OUTPUT mode also apply to one in OPEN EXTEND mode. 



End of IBM Extension 



VSAM RELATIVE FILES: The WRITE statement is valid for both 
OUTPUT and I-O files. 

For OUTPUT files/ the WRITE statement causes the following 
actions: 

• If ACCESS IS SEQUENTIAL is specified/ the first record 

released has relative record number 1/ the second number 2/ 
the third number 3/ and so forth. If the RELATIVE KEY is 
specified in the File-Control entry/ the relative record 
number of the record just released is placed in the RELATIVE 
KEY during execution of the WRITE statement. 
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• If ACCESS IS RANDOM or ACCESS IS DYNAMIC is specified, the 
RELATIVE KEY must contain the desired relative record number 
for this record before the WRITE statement is issued. Ulhen 
the WRITE statement is executed, this record is placed at 
the specified relative record number position in the file. 

For I-O files, either ACCESS IS RANDOM or ACCESS IS DYNAMIC must 
be specified; the WRITE statement inserts new records into the 
file. The RELATIVE KEY must contain the desired relative record 
number for this record before the WRITE statement is issued. 
When the WRITE statement is executed, this record is placed at 
the specified relative record number positron in the file. 

INVALID KEY Option* This option must be specified if an explicit 
or implicit EXCEPTION/ERROR procedure is not specified for this 
file. 



IBM Extension 



Houiever, this IBM implementation allows both the INVALID 
option and the EXCEPTION/ERROR procedure to be omitted. 



KEY 



End of IBM Extension 



START STATEMENT 



When the INVALID KEY condition is recognized, WRITE statement 
execution is unsuccessful, and the contents of the record area 
are unaffected. Program execution proceeds according to the 
rules stated in the preceding INVALID KEY Condition section. An 
INVALID KEY condition is caused by either of the following*- 

• When ACCESS IS RANDOM or ACCESS IS DYNAMIC is specified, and 
the RELATIVE KEY specifies a record that already exists in 
the file 

• When an attempt is made to write beyond the 
externally-defined boundaries of the file 



The START statement provides a means of positioning within a 
VSAM indexed or relative file for subsequent sequential record 
retri eval . 



w,.y 



Format 



I EQUAL TO 

I GREATER THAN 

START file-name [KEY IS < > 

I NOT LESS THAN I 

I NOT < I 

L J 



> data-name] 



[ INVALID KEY imperative-statement] 

When the START statement is executed, the associated VSAM 
indexed or relative file must be open in INPUT or 1-0 mode. 

File-name must name a file with sequential or dynamic access. 
File-name must be defined in an FD entry in the Data Division, 
and must not name a sort or merge file. 

When the KEY option is not specified, the EQUAL TO relational 
operator is implied. 

When the KEY option is specified, the comparison specified in 
the KEY relational operator is made between data-name and the 
corresponding key field associated with the file's records. 
Data-name may be qualified? it may not be subscripted or 
i ndexed. 



\.^ 
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INVALID KEY Option 



Ulhen the START statement is executed^ a comparison is made 
betuieen the current value in the key data-name and the 
corresponding key field in the file's records. The Current 
Record Pointer is positioned to the logical record in the file 
uihose key field satisfies the comparison. 



If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists; the position of the Current Record 
Pointer is undefined, and (if specified) the INVALID KEY 
imperative-statement is executed. (See the description of the 
INVALID KEY Condition in the preceding Common Processing 
Facilities section.) 

The INVALID KEY option must be specified if no EXCEPTION/ERROR 
procedure is explicitly or implicitly specified for this file. 



IBM Extension 



However, this IBM implementation allouis both the INVALID KEY 
option and the EXCEPTION/ERROR procedure to be omitted. 



End of IBM Extension 



Status Key Considerations 



m 1 



VSAM indexed Files 



o 



If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the START 
statement is executed. (See the Status Key description in the 
preceding Common Processing Facilities section.) 



When the KEY option is not specified, the key data item used for 
the EQUAL TO comparison is the prime RECORD KEY. When START 
statement execution is successfully completed, the RECORD KEY 
becomes the key of reference for subsequent READ statements. 

When the KEY option is specified, the key data item used for the 
comparison is data-name, which can be^ 

• The prime RECORD KEY, or 

• Any ALTERNATE RECORD KEY, or 

• An alphanumeric data item subordinate to a record key whose 
leftmost character position corresponds to the leftmost 
character position of that record key. This data item may 
be qualified. 

I IBM Extension \ 

This data item may also be defined as an external decimal item. 

' End of IBM Extension ' 

The Current Record Pointer is positioned to the first record in 
the file whose key field satisfies the comparison. If the 
operands in the comparison are of unequal length, the comparison 
proceeds as if the longer field were truncated on the right to 
the length of the shorter field. All other numeric and 
nonnumeric comparison rules apply, except that the PROGRAM 
COLLATING SEQUENCE clause, if specified, has no effect. 

When START statement execution is successful, the RECORD KEY or 
ALTERNATE RECORD KEY with which data-name is associated becomes 
the key of reference for subsequent READ statements. 

When START statement execution is unsuccessful, the key of 
reference is undefined. 
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VSAM Relative Files 



Ulhen the 
RELATIVE 



KEY 
KEY. 



option is specified^ data-name must specify the 



( 



J? 



Whether or not the KEY option is specified, the key data item 
used in the comparison is the RELATIVE KEY data item. The 
Current Record Pointer is positioned to the logical record in 
the file whose key satisfies the comparison. 



READ STATEMENT 



For sequential access, the READ statement makes available the 
next logical record from a file. For random access, the READ 
statement makes available a specified record from a direct 
access storage file. 

Format 1 — Sequential Retrieval 

READ file-name [ NEXT ] RECORD [ INTO ] identifier] 
tAT END imperative-statement] 

Format 2 — Random Retrieval 

READ file-name RECORD [ INTO identifier] 
[ KEY IS data-name] 
[ INVALID KEY imperative-statement] 

The READ statement makes a record available to the object 
program before execution of any statement following the READ 
statement . 

When the READ statement is executed, the associated file must be 
open in INPUT or I-O mode. 

File-name must be defined in a Data Division FD entry, and must 
not name a sort or merge file. 

If more than one record description entry is associated with 
file-name, these records automatically share the same storage 
area; that is, they are implicitly redefined. After a READ 
statement is executed, only those data items within the range of 
the current record are replaced; data items stored beyond that 
range are undefined. Figure 44 illustrates this concept. 



I^'"\ 
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The FD entry Is^ 

FD INPUT-FILE LABEL RECORDS OMITTED. 
01 RECORD-1 PICTURE X(30). 
01 RECORD-2 PICTURE X(20). 

Contents of input area uihen READ statement is executed^ 



ABCDEFGHIJKLMN0PQRSTUVWXYZ1234 



Contents of record being read in (RECORD-2) 



01234567890123456789 



Contents of input area after READ is executed: 
01234567890123456789?????????? 



(These characters in input area are 
undef i ned) 

Figure 44. READ Statement with Multiple Record Descript^ion 



Uhen the INTO identifier option is specified* the current record 
is moved from the input area to the identifier area according to 
the rules for the MOVE statement without the CORRESPONDING 
option. Any subscripting or indexing associated with the 
identifier is evaluated after the record has been read and 
immediately before it is transferred to identifier. (See 
INTO/FROM Identifier Option in the preceding Common Processing 
Facilities section.) 

The INTO identifier option must not be specified when the file 
contains records of various sizes* as indicated by their record 
descri pti ons. 

J IBM Extension 1 

However* this IBM implementation allows the use of records of 
various sizes with READ INTO. 



End of IBM Extension 



The AT END or INVALID KEY option must be specified if no 
implicit or explicit EXCEPTION/ERROR procedure is specified for 
this file. 

I IBM Extension j 

However* this IBM implementation allows both the AT END or 
INVALID KEY option and the EXCEPTION/ERROR procedure to be 
omitted. 



End of IBM Extension 



If the FILE-STATUS clause is specified in the File-Control 
entry* the associated Status Key is updated when the READ 
statement is executed. 
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Sequential Access 



Following unsuccessful READ statement execution^ the contents of 

the associated record area and the position of the Current /'j ^ 

Record Pointer are undefined. 'Ay 



Format 1 must be used for all files in sequential access mode. 

Execution of a Format 1 READ statement makes available the next 
logical record from the file. Which record is considered next 
depends upon the file organization. 

FILES WITH SEQUENTIAL ORGANIZATION' The next record is the 
succeeding record in logical sequence. The NEXT option need not 
be specified; it has no effect on READ statement execution. 

If SELECT OPTIONAL is specified in the File-Control entry for 
this file» and the file is absent during this execution of the 
object program* execution of the first READ statement causes an 
AT END condition; however* since no file is present* the 
standard end-of-file processing is not performed. 

AT END Condition: If no next logical record exists in the file 
when the READ statement is executed* an AT END condition occurs* 
and READ statement execution is unsuccessful. The following 
actions are taken* in the following orders 

1. If the FILE STATUS clause is specified* the Status Key is 
updated to indicate an AT END condition. 

2. If the AT END option is specified* control is transferred to 
the AT END imperative-statement. Any EXCEPTION/ERROR 
procedure for this file is not executed. 

3. If the AT END option is not specified* then any /"^ ^ 



EXCEPTION/ERROR procedure for this file is executed. 

When the AT END condition is recognized* a READ statement for 
this file must not be executed without first executing a 
successful CLOSE statement followed by a successful OPEN 
statement for this file. 

Multi volume Physical sequential Files: If end-of-volume is 
recognized during execution of a READ statement* and logical 
end-of-file has not been reached* the following are 
accomplished: 

• The standard ending volume label procedure. 

• A volume switch. 

• The standard beginning volume procedure. 

• The first data record of the next volume is made available. 

FILES WITH VSAM INDEXED OR VSAM RELATIVE ORGANIZATION: The next 
record is the succeeding logical record in key sequence. For 
VSAM indexed files* the key sequence i s the ascending values of 
the current key of reference. For VSAM relative files* the key 
sequence is the ascending values of relative record numbers for 
records that exist in the file. 

Before the READ statement is executed* the Current Record 
Pointer must be set by a successful OPEN* START* or READ 
statement. When the READ statement is executed* the record 
indicated by the Current Record Pointer is made available* if it 
is still accessible through the path indicated by the Current 
Record Pointer. 

If the record is no longer accessible (due* for example* to /| 

deletion of the record)* the Current Record Pointer is updated \ 
to indicate the next existing record in the file* and that 
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record is made available. 
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Random Access 
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For files in sequential access mode^ the NEXT option need not be 
specified; it may be specified. 

For files in dynamic access mode» the NEXT option must be 
specified for sequential record retrieval. 

AT END Condition: If no more logical records exist in the file 
Mhen the READ statement is executed, an AT END condition occurs. 
The same actions are taken as for files with sequential 
organi zati on. 

When the AT END condition is recognized, a sequential access 
READ statement for this file must not be executed without first 
executing one of the following: 

• A successful CLOSE statement followed by a successful OPEN 
statement 

• A successful START statement for this file 

• A successful random access READ statement for this file 

Sequentially Accessed VSAM Indexed Files: When an ALTERNATE 
RECORD KEY with DUPLICATES is the key of reference, file records 
with duplicate key values are made available in the order they 
were placed in the file. 

sequentially Accessed VSAM Relative Files: If the RELATIVE KEY 
clause is specified for this file, READ statement execution 
updates the RELATIVE KEY data item to indicate the relative 
record number of the record being made available- 



Format 2 must be specified for VSAM indexed and relative files 
in random access mode, and also for files in the dynamic access 
mode when record retrieval is random. 

Execution of the READ statement depends on the file 
organization, as explained in the following sections. 

FILES WITH VSAM INDEXED ORGANIZATION: Execution of a Format 2 
READ statement causes the value of the key of reference to be 
compared with the value of the corresponding key data item in 
the file records, until the first record having an equal value 
is found. The Current Record Pointer is positioned to this 
record which is then made available. If no record can be so 
identified, an INVALID KEY condition exists, and READ statement 
execution is unsuccessful. (See INVALID KEY condition in the 
preceding Common Processing Facilities section.) 

If the KEY option is not specified, the prime RECORD KEY becomes 
the key of reference for this request. When dynamic access is 
specified, the prime RECORD KEY is also used as the key of 
reference for subsequent executions of sequential READ 
statements until a different key of reference is established. 

KEY Option: The KEY option may be specified only for indexed 
files. Data-name must identify a record key associated with 
file-name — either the prime record key or any alternate record 
key. Data-name may be qualified; it may not be subscripted or 
indexed. 

When the KEY option is specified, data-name becomes the key of 
reference for this request. When dynamic access is specified, 
this key of reference is used for subsequent executions of 
sequential READ statements until a different key of reference is 
establi shed. 

FILES UITH VSAM RELATIVE ORGANIZATION: Execution of a Format 2 
READ statement sets the Current Record Pointer to the record 
whose relative record number is contained in the RELATIVE KEY 
data item, and makes that record available. 
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If the file does not contain such a record, the INVALIJD KEY 
condition exists, and READ statement execution is unsuccessful 
(See INVALID KEY Condition in the preceding Common Processing 
Facilities section.) 



( 






The KEY option must not be specified for relative files. 



Dynamic Access 



For files with VSAM indexed or relative organization, dynamic 
access mode may be specified in the File-Control entry. In 
dynamic access mode, either sequential or random record 
retrieval can be specified, depending on the format used. 

Format 1 with the NEXT option must be specified for sequential 
retrieval. All other rules for sequential access apply. 



Format 2 must be specified for random retrieval, 
rules for random access apply. 



All other 



REWRITE STATEMENT 



The REWRITE statement logically replaces an existing record in a 
mass storage file. 

Format 



REWRITE record-name [ FROM identifier] 
[ INVALID KEY imperative-statement! 

When the REWRITE statement is executed, the associated direct 
access storage file must be open in I-O mode. 

Record-name must be the name of a logical record in the File 
Section of the Data Division. Record-name must not be 
associated with a sort or merge file. Record-name may be 
qualified; it may not be subscripted or indexed. 

REWRITE statement execution replaces an existing record in the 
file with the information contained in record-name. 

After successful execution of a REWRITE statement, the logical 
record is no longer available in record-name unless the 
associated file is named in a SAME RECORD AREA clause (in which 
case the record is also available as a record of the other files 
named in the SAME RECORD AREA clause). 

The Current Record Pointer is not affected by execution of the 
REWRITE statement. 

If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the REWRITE 
statement is executed. 

For files in the sequential access mode, the last prior 
input/output statement executed for this file must be a 
successfully executed READ statement. When the REWRITE 
statement is executed, the record retrieved by that READ 
statement is logically replaced. 

When the FROM identifier option is specified, the logical record 
is still available in identifier after successful REWRITE 
statement execution. (See the INTO/FROM Identifier Option in 
the preceding Common Processing Facilities section.) 



/ ^>^ 



Sequential Files 



The number of character positions in record-name must equal the 
number of character positions in the record being replaced. 



^utt^ 
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VSAM Indexed Files 



o 



VSAH Relative Files 



o 



The INVALID KEY option must not be specified for a file with 
sequential organization. An EXCEPTION/ERROR procedure may be 
speci f i ed. 



The number of character positions in record-name must equal the 
number of character positions in the record being replaced. 



IBM Extension 1 



However, this IBM implementation allows the number of character 
positions in record-name to be different from the number of 
character positions in the record being replaced. 



End of IBM Extension 



When the access mode is sequential, the record to be replaced is 
specified by the value contained in the prime RECORD KEY. When 
the REWRITE statement is executed, this value must equal the 
value of the prime record key data item in the last record read 
from this file. 

When the access mode is random or dynamic, the record to be 
replaced is specified by the value contained in the prime RECORD 
KEY. 

Values of ALTERNATE RECORD KEY data items in the rewritten 

record may differ from those in the record being replaced. The 

system ensures that later access to the record can be based upon 
any of the record keys. 

INVALID KEY OPTION: An INVALID KEY condition exists when: 

• The access mode is sequential, and the value contained in 
the prime RECORD KEY of the record to be replaced does not 
equal the prime RECORD KEY data item of the last-retrieved 
record from the file, or 

• The value contained in the prime RECORD KEY does not equal 
that of any record in the file, or 

• The value of an ALTERNATE RECORD KEY data item for which 
DUPLICATES is not specified is equal to that of a record 
already in the file. 

If any one of these conditions exists, the execution of the 
REWRITE statement is unsuccessful, the updating operation does 
not take place, and the data in record-name is unaffected. (See 
"INVALID KEY Condition" in the preceding Common Processing 
Facilities section.) 



The number of character positions in record-name must equal the 
number of character positions in the record being replaced. 



IBM Extension j 



However, this IBM implementation allows the number of character 
positions in record-name to be different from the number of 
character positions in the record being replaced. 



End of IBM Extension 



For VSAM relative files in the sequential access mode, the 
INVALID KEY option must not be specified. An EXCEPTION/ERROR 
procedure may be specified. 

When the access mode i s random or dynamic, the record to be 
replaced is specified in the RELATIVE KEY data item. If the 
file does not contain the specified record, an INVALID KEY 
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DELETE STATEMENT 



condition exists, and, if specified, the INVALID KEY 

imperative-statement is executed. (See INVALID KEY condition in j/~~'\ 
the preceding Common Processing Facilities section.) The J 

updating operation does not take place, and the data in %^^ 

record-name is unaffected. 



The DELETE statement logically removes a record from an indexed 
or a relative file. 

Format DELETE file-name RECORD 

[ INVALID KEY imperative-statement] 

When the DELETE statement is executed, the associated file must 
be open in I-O mode. 

File-name must be defined in an FD entry in the Data Division 
and must be the name of an indexed or relative VSAM file. 

After successful execution of a DELETE statement, the record is 
logically removed from the file and can no longer be accessed. 
Execution of the DELETE statement does not affect the contents 
of the record area associated with file-name. 

If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the DELETE 
statement is executed. 



Sequential Access Mode 



Random or Dynamic Access Mode 



Programming Notes 



In random or dynamic access mode, DELETE statement execution 
results depend on the file organi zati on J VSAM indexed or 
relat i ve. 

VSAM INDEXED FILES ^ In random or dynamic access mode, when the 
DELETE statement is executed, the system logically removes the 
record identified by the contents of the prime RECORD KEY data 
item. If the file does not contain such a record, an INVALID 
KEY condition exists. (See the INVALID KEY Condition in the 
preceding Common Processing Facilities section.) 

VSAM RELATIVE FILES J In random or dynamic access mode, when the 
DELETE statement is executed, the system logically removes the 
record identified by the contents of the RELATIVE KEY data item, 
If the file does not contain such a record, an INVALID KEY 
condition exists. (See the INVALID KEY Condition in the 
preceding Common Processing Facilities section.) 



The DELETE statement logically removes the record from the file 
For indexed files, the space is then immediately available for 
record additions. For relative files, the space is then 
available for a new record with the same RELATIVE KEY value. 



f"^\ 



For a file in sequential access mode, the last prior 

input/output statement must be a successfully executed READ 

statement. When the DELETE statement is executed, the system 

logically removes the record retrieved by that READ statement. 

The current record pointer is not affected by execution of the \^J^ 

DELETE statement. 

For a file in sequential access mode, the INVALID KEY option 
must not be specified. An EXCEPTION/ERROR procedure may be 
specified. 






154 IBM VS COBOL for OS/VS 






CLOSE STATEMENT 



The CLOSE statement terminates the processing of volumes and 
files, with optional rewind and/or lock or removal, where 
appl i cable. 

Format 1 — Physical Sequential Files 



CLOSE file-name-1 



[ REEL 1 
< UNIT > 



WITH 



\ WITH NO REMIND ] 
I FOR REMOVAL I 



NOREWI 



ND I 



LOCK 



Cf i le-name-2 



[ [ REEL 1 r WITH NO REUJIND 1 
< UNIT > I FOR REMOVAL I 



I NO REUIIND 1 

WITH < > 

I LOCK I 



o 



Format 2 — VSAM Files 

CLOSE file-name-1 
[f i le-name-2 



[WITH LOCK] 
[WITH LOCK] ] 



Each file-name designates a file upon which the CLOSE statement 
is to operate. The files need not have the same organi2ation or 
access, and must not be sort or merge files. 

A CLOSE statement may be executed only for a file in an open 
mode. After successful execution of a CLOSE statement without 
the REEL/UNIT option, the record area associated with the 
file-name is no longer available. Unsuccessful execution of a 
CLOSE statement leaves availability of the record data 
undef i ned. 

After a CLOSE statement without the REEL/UNIT option is 
successfully executed for the file, an OPEN statement for the 
file must be executed before any other input/output statement 
(except a SORT/MERGE statement with the USING or GIVING option) 
can refer explicitly or implicitly to the file. 

If the FILE STATUS clause is specified in the File-Control 
entry, the associated Status Key is updated when the CLOSE 
statement is executed. 

If the file is in an open status and the execution of a CLOSE 
statement is unsuccessful, the EXCEPTION/ERROR procedure (if 
specified) for this file is executed. 

If a CLOSE statement is not executed for an open file before a 
STOP RUN or CANCEL statement for this program is executed, 
results are unpredictable. (See the System Dependencies 
chapter. ) 
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Format 1 — Physical Sequential Files 



The REEL/UNIT options may be specified only for physical 
sequential multivolume files. The terms REEL and UNIT are 
interchangeable. 

The WITH NO REWIND and FOR REMOVAL options apply only to tape 
files. If they are specified for storage devices to which they 
do not apply* they are ignored. 

If the SELECT OPTIONAL clause is specified in the File-Control 
entry for this file» and the file is not present at object time* 
standard end-of-file processing is not performed. (See the 
chapter on System Dependencies.) 

Figure 45 summarizes the permissible combinations of CLOSE 
statement options for each file type. Figure 46 gives the 
meaning of each key used in Figure 45 . Physical sequential 
files arG divided into the following typesJ 

• Unit Record - A file whose input or output medium is such 
that rewinding* units* and reels have no meaning. 

• Sequential Single Volume ' A sequential file entirely 
contained on one volume. More than one file may be 
contained on this volume. 






Sequential Multivolume ' 
than one volume. 



A sequential file contained on more 





Physical Sequential File Type 




CLOSE 

Statement 
Format 


Unit Record 


Sequential 

Single 

Volume 


Sequential 
Multi- 
Volume 


CLOSE 


C 


C,G 


C,G,A 


CLOSE WITH LOCK 


C,E 


C,G,E 


C,G.E,A 


CLOSE WITH NO REWIND 


X 


C,B 


C,B,A 


CLOSE REEL/UNIT 


X 


X 


F,G 


CLOSE REEL/UNIT 
FOR REMOVAL 


X 


X 


F,D,G 


CLOSE REEL/UNIT 
WITH NO REWIND 


X 


X 


F,B 



Figure 45. Physical Sequential File Types and CLOSE Statement 
Options 



^k«i 
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Key Actions Taken 



^minj^ 



A Previous Volumes Unaffected 

Input and Input/Output Files — Standard volume-switch processing is performed 
for all prior volumes (except those controlled by a prior CLOSE REEL/UNIT 
statement). Any subsequent volumes are not processed. 

Output Files — Standard volume-switch processing is performed for all prior 
volumes (except those controlled by a prior CLOSE REEL/UNIT statement). 

B No Rewind of Current Reel — the current volume is left in its current position. 

C Close File 

Input and Input/Output Files — If the file is at its end, and label records are 
specified, the standard ending label procedure is performed. Standard system 
closing procedures are then performed. 

If the file is at its end, and label records are omitted, standard system closing 
procedures are performed. 

If the file is not at its end, standard system closing procedures are performed. 
Even if label records are specified, no label processing is performed. 

Output Files — If label records are specified, standard ending label procedures are 
performed. Standard system closing procedures are then performed. 

If label records are not specified, standard system closing procedures are 
performed. 

D Volume Removal — When applicable, the current volume is rewound; the system 

is notified that the volume is logically removed from this run unit. However, the 
volume may be accessed again, after execution of a CLOSE statement without 
the REEL/UNIT option and an OPEN statement for this file. 

E File Lock — The compiler ensures that this file cannot be opened again during 

this execution of the object program. 

F Close Volume 

Input Files — the following operations are performed: a volume switch, the 
standard beginning label procedure, and the first record on the new volume is 
made available for reading. 

Output and Input/Output Files — the following operations are performed: the 
standard ending volume label procedure (for output files only), a volume switch, 
the standard beginning volume label procedure. 

For Input/Output Files, the next-executed READ statement makes the next 
logical record on the next direct access storage volume available. 

For Output Files, the next-executed WRITE statement places the next logical 
record on the next direct access storage volume available. 

G Rewind — The current volume is positioned at its beginning. 

X Illegal — This combination of CLOSE statement option and file type is illegal. 

Results at object time may be unpredictable. 

Figure 46. Meanings of Keys Used in Figure 45 



Format 2 — VSAM Files 



%tJ 



Whether a VSAM file is contained on a single volume or on 
multiple volumes is of no concern to the COBOL programmer; thus 
the concept of volumes has no meaning for these types of files. 

If an input VSAM sequential file is described as SELECT OPTIONAL 
in the File-Control entry and the file is not present during 
this execution of the object program, standard end-of-file 
processing is not performed. 
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Figure 47 summarizes the permissible combinations of CLOSE 
statement options for VSAM files. Figure 48 gives the meaning 
of each key used in Figure 47. 



ACCEPT STATEMENT 



CLOSE 

Statement 

Format 



VSAN Files (Sequent ialf 
indexedy Relative) 



CLOSE A 

CLOSE UITH LOCK A»B 

Figure 47. VSAM Files and CLOSE Statement Options 



Key Actions Taken 
A Close File 

Standard system closing procedures are performed. 

B File Lock 

The compiler ensures that this file cannot be 
opened again during this execution of the 
object program. 

Figure 48. Meanings of Keys Used in Figure 47 



c 



The ACCEPT statement causes low-volume data to be made available 
in the specified identifier. 

Format 1 — Data Transfer 



ACCEPT identifier [FROM < 



mnemoni c-name 



f unct i on-name 



> ] 



Format 2 — System Information Transfer 

\ DATE 1 
ACCEPT identifier FROM < DAY > 

I TIME I 



ACCEPT statement execution causes the transfer of data into the 
specified identifier. There is no editing or error checking of 
the incoming data. 



Format 1 — Data Transfer 



This format is used to transfer data from sn input/output device 
into the identifier. When the FROM option is omitted, the 
system input device is assumed. 

Identifier may be any fixed-length group item* or an elementary 
alphabetic* alphanumeric, or external decimal item. 



( 



J 
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When the FROM option is specified, mnemonic-name must be 
associated in the SPECIAL-NAMES paragraph with an input/output 
device — either the system input device or the console 
typewriter. If the device is the same as that used for READ 
statements, results are unpredictable. 

When the device is the system input device, the following rules 
applyJ 

• An input record size of 80 characters is assumed. 

• If the identifier is less than 80 characters long, the input 
data must appear as the first characters within the input 
record; any characters beyond the length of identifier are 
truncated. 

• If the identifier is longer than 80 characters, succeeding 
input records are read until the storage area of identifier 
is filled. If identifier is not an exact multiple of 80 
characters, that part of the last input record which will 
not fit into the identifier is truncated. 

When mnemonic-name is associated with the console typewriter, 
the maximum length of an input message is 255 characters. The 
following rules applyi 

• A system-generated message code is automatically displayed, 
followed by the literal "AWAITING REPLY." 

• Execution is suspended. 

• After the message code (the same code as in point 1) 
followed by a message is keyed in from the console 
typewriter and recognized by the system, ACCEPT statement 
execution is resumed; the message is moved to identifier and 
left-justified, regardless of its PICTURE. 

If the identifier is longer than the incoming message, the 
rightmost character positions may contain invalid data. 

If the incoming message is longer than identifier, the 
character positions beyond the length of identifier are 
truncated. 



IBM Extension 



When the FROM option is specified, this compiler allows a 
valid function-name to be specified in place of 
mnemonic-name. The list of valid function-names is in the 
System Dependencies chapter. 



End of IBM Extension 



Format 2 — System Information Transfer 






This format is used to transfer the system information contained 
in the specified Special Register (DATE, DAY, or TIME) into 
identifier. 

Identifier may be a fixed-length group item, or an elementary 
alphanumeric, alphanumeric edited, external decimal, binary, or 
numeric edited item. 

I IBM Extension 1 

Identifier may also be an internal decimal item. 

' End of IBM Extension ' 

The system information is moved from the specified Special 
Register into identifier, following the rules for the MOVE 
statement without the CORRESPONDING option- 
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The special 
DISPLAY, 



registers DATE, DAY, and TIME implicitly have USAGE 



DATE has the implicit PICTURE 9(6). The sequence of data 
elements (from left to right) is? 2 digits for year of century, 

2 digits for month of year, 2 digits for day of month. Thus 
July ^, 1981 is expressed as 81070^. 

DAY has the implicit PICTURE 9(5). The sequence of data 
elements (from left to right) is** 2 digits for year of century, 

3 digits for day of year. Thus July 4, 1981 is expressed as 
81186. 

TIME has the implicit PICTURE 9(8). The sequence of data 
elements (from left to right) ys' 2 digits for hour of day, 2 
digits for minute of hour, 2 digits for second of minute, 2 
digits for hundredths of second. Thus 2-^1 PM is expressed as 
14410000. 



Programming Notes 



The Format 1 ACCEPT statement is useful for exceptional 
situations in a program when operator intervention (to supply a 
given message, code, or exception indicator) is required. The 
operator must, of course, be supplied with the appropriate 
messages with which to reply. 

The Format 2 ACCEPT statement allows the programmer access to 
the current date (in two formats) and time of day, as carried by 
the system. This can be useful in identifying when a particular 
run of an object program was executed. It can also be used to 
supply the date in headings, footings, and so forth. 



IBM Extension 



An example of this use of the Format 2 ACCEPT statement is in 
the Report Writer sample program. 



i 






End of IBM Extension 



DISPLAY STATEMENT 



The DISPLAY statement transfers low-volume data to an 
input/output device. 

Format 



DISPLAY < 



I identifiei — 1 | 



I literal-1 



identifiei — 2 | 



literal-2 



[UPON 



mnemoni c-name 



f uncti on-name 



> ] 



The DISPLAY statement causes the contents of each operand to be 
transferred, in the order, left to right, in which the operands 
are listed, to the input/output device. 

Numeric identifiers not described as external decimal are 
converted automatically to external format, as follows^ 

• Binary items are converted to external decimal. Negative 
signed values cause a low-order sign overpunch. 



\„^'^ 
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IBM Extension 






Internal Decimal Items are converted to external decimal. 
Negative signed values cause a low-order sign overpunch. 



End of IBM Extension 



• No other identifiers require conversion. 

For example/ if three binary items have values of -3^* +34* and 
34, they are displayed as 3M, 34, and 34, respectively. 

Each numeric literal must be an unsigned integer. 

I IBM Extension \ 



However, this IBM implementation allows signed noninteger 
numeric literals. 



End of IBM Extension 



Each literal may be any figurative constant except ALL literal. 
When a figurative constant is specified, only a single 
occurrence of that figurative constant is displayed. 

When the UPON option is omitted, the system logical output 
device is assumed. 

When the UPON option is specified, mnemonic-name must be 
associated in the SPECIAL-NAMES paragraph with an input/output 
device — the system logical output device, the system punch 
device, or the console typewriter. A maximum logical record 
size is assumed for each device, as follows*- 

System logical output device 120 characters 

System logical punch device 72 characters^ 

Console typewriter 100 characters 

^Characters 73 through 80 are used for PROGRAM-ID name. 

When the DISPLAY statement is executed, the data contained in 
the sending field is transferred to the input/output device. 
The size of the sending field is the total character count of 
all listed operands. 

If the total character count is less than the device maximum 
character count, the remaining rightmost characters are padded 
with spaces. 

If the total character count exceeds the maximum, as many 
records are written as are needed to display all operands. Any 
operand being printed when the end of a record is reached is 
continued in the next record. 



I IBM Extension 



When the UPON option is specified, this IBM implementation 
allows a valid function-name to be specified in place of 
mnemonic-name. The list of valid function-names is in the 
System Dependencies chapter. 



End of IBM Extension 



Note: DISPLAY, WRITE AFTER ADVANCING, and a simple WRITE 
statement all cause the printer to space before printing. A 
WRITE BEFORE ADVANCING statement, however, causes the printer to 
space after printing. Thus, specifying the WRITE BEFORE 
ADVANCING statement and any other of these statements for the 
same device may cause overprinting. 
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Programming Notes 

The DISPLAY statement is useful for identifying data records /if "^ 
that have caused a SIZE ERROR, INVALID KEY, or ON OVERFLOW 1 ^ 

condition, as well as those which caused a status key return 
other than 0. Such records can be printed, with an identifying 
message on some other medium than that used for valid output. 
Thus all records for one execution that need special handling 
are separately printed. 



■'i_> 



( 



y 
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ARITHHETIC STATEMENTS 



COMMON OPTIONS 



The arithmetic statements are used for computations. Individual 
operations are specified by the ADD, SUBTRACT, MULTIPLY, and 
DIVIDE statements. These operations can be combined 
symbolically in a formula, using the COMPUTE statement. 



There are several options common to the arithmetic statements; 
their description precedes the descriptions of the individual 
statements. 



CORRESPONDING Option 



The CORRESPONDING option is valid in the ADD, SUBTRACT, and MOVE 
statements. The key word CORRESPONDING is equivalent to its 
abbreviation, CORR. 

The CORRESPONDING option allows operations to be performed on 
elementary items of the same name simply by specifying the group 
items to which they belong. 

Both identifiers following the key word CORRESPONDING must name 
group items. In this discussion these identifiers are referred 
to as dl and d2 . 

A pair of data items, one from dl and one from d2, correspond if 
the following conditions are true^ 

In an ADD or SUBTRACT statement, both of the subordinate 
items are elementary. 

In a MOVE statement, at least one of the subordinate items 
i s elementary. 

The two subordinate items have the same name and the same 
qualifiers up to but not including dl and d2. 

The subordinate items are not identified by the key word 
FILLER. 

The subordinate items do not include a REDEFINES, RENAMES, 
OCCURS, or USAGE IS INDEX clause in their descriptions; if 
such a subordinate item is a group, the items subordinate to 
it are also ignored. 

However, dl and d2 themselves may contain or be subordinate 
to items containing a REDEFINES or OCCURS clause in their 
descripti ons. 

For example, if two data hierarchies are defined as follows* 



05 ITEM-1 OCCURS 6 INDEXED BY X. 

10 ITEM-B ... 

10 ITEM-C REDEFINES ITEM-B . 
05 ITEM-2 

10 ITEM-A ... 

10 ITEM-B ... 

10 ITEM-C ... 



Then, if ADD CORR ITEM-2 TO ITEM-KX) is specified, ITEM-A 
and ITEM-A(X) and ITEM-B and ITEM-B(X) are considered to be 
corresponding and are added together; ITEM-C and ITEM-C(X) 
are not included because ITEM-C(X) includes a REDEFINES 
clause in its data description. Note that ITEM-1 is valid 
as either dl or d2. 
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Neither dl nor d2 is described as a level 66, 77» or 88 
item, nor is either item described as a FILLER or USAGE IS 
INDEX item. 



IBM Extension 



However, dl and/or d2 may be subordinate to a FILLER item. 
End of IBM Extension ' 



'■^, 



GIVING option 



If the GIVING option is specified, the value of the identifier 
that follows the word GIVING is set equal to the calculated 
result of the arithmetic operation. Because this identifier is 
not involved in the computation, it may be a numeric edited 
item. 



ROUNDED option 



After decimal point alignment, the number of places in the 
fraction of the result of an arithmetic operation is compared 
with the number of places provided for the fraction of the 
resultant identifier. 

Unless ROUNDED is specified, truncation occurs when the size of 
the fractional result exceeds the number of places provided for 
its storage. When ROUNDED is specified, the least significant 
digit of the resultant identifier has its value increased by 1 
whenever the most significant digit of the excess is greater 
than or equal to 5. 

When the resultant identifier is described by a PICTURE clause 
containing rightmost Ps and when the number of places in the 
calculated result exceeds the number of specified integer 
positions, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 



IBM Extension 



If the resultant field is floating point, the ROUNDED option has 
no meaning. However, if at least one of the operands of an 
arithmetic operation is floating-point data and the resultant 
field is fixed-point data, rounding always takes place, whether 
or not ROUNDED is specified. 



End of IBM Extension 



v> 



SIZE ERROR Option 



After decimal point alignment, if the value of a result exceeds 
the largest value that can be contained in the resultant field, 
a size error condition exists. Division by zero always causes a 
size error condition. 

In the ADD, SUBTRACT, and COMPUTE statements, the size error 
condition applies only to final results. In the MULTIPLY and 
DIVIDE statements, the size error condition applies both to 
final results and intermediate results. 



If the ROUNDED option 
size error checking. 



is specified, rounding takes place before 



When a size error occurs, the subsequent action of the program 
depends on whether or not the SIZE ERROR option is specified. 

If the SIZE ERROR option is not specified, and a size error 
condition occurs, the value of the affected resultant identifier 
is unpredictable. During execution of this operation, values 
for resultant identifiers for which no size error occurred are 
not affected by those for which one did occur. 



IJ 
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If the SIZE ERROR option is specified and a size error condition 
occurs, the value of the resultant identifier affected by the 
size error is not altered — that is, the error results are not 
placed in the receiving identifier. After completion of the 
execution of* the arithmetic operation, the imperative statement 
in the SIZE ERROR option is executed. 

For ADD CORRESPONDING and SUBTRACT CORRESPONDING statements, if 
an individual arithmetic operation causes a size error 
condition, the SIZE ERROR imperative-statement is not executed 
until all of the individual additions or subtractions have been 
completed. 



ARITHMETIC STATEMENT OPERANDS 



Size of Operands 



The data description of operands in an arithmetic statement need 
not be the same. Throughout the calculation, the compiler 
supplies any necessary data conversion and decimal point 
ali gnment . 



The maximum size of each operand is 18 decimal digits. The 
composite of operands (a hypothetical data item resulting from 
the superimposi ti on of the operands aligned by decimal point) 
must not contain more than 18 decimal digits. 

For the ADD and SUBTRACT statements, the composite of operands 
is determined by superimposing all operands in a given statement 
(except those following the word GIVING). 

For the MULTIPLY statement, the composite of operands is 
determined by superimposing all receiving data items. 

For the DIVIDE statement, the composite of operands is 
determined by superimposing all receiving data items, except the 
REMAINDER data item. 

For the COMPUTE statement, the restriction on composite of 
operands does not apply. 

For example, if the statement ADD A B TO C i s executed, and each 
item is defined as follows in the Data Division^ 

A PICTURE 9(7)V9(5). 

B PICTURE 9(11)V99. 

C PICTURE 9(12)V9(3). 

then the composite of operands for this statement consists of 17 
decimal digits; it has the following implicit description^ 

Composite-of -Operands PICTURE 9(12)V9(5). 

I IBM Extension 1 



However, this IBM implementation allows all operands in an 
arithmetic statement to be up to 18 digits in length. 



End of IBM Extension 



Overlapping Operands 



o 



When operands in an arithmetic statement share part of their 
storage (that is, when the operands overlap), the result of the 
execution of such a statement is unpredictable. 
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Multiple Results 



Ulhen an arithmetic statement has multiple results^ execution 
conceptually proceeds as follows^ 

• The statement performs all arithmetic operations to find the 
result to be placed in the receiving items^ and stores that 
result in a temporary location. 

• A sequence of statements transfers or combines the value of 
this temporary result with each single receiving field. The 
statements are considered to be written in the same 
left-to-right order that the multiple results are listed. 

For example^ executing the following statement^ 

ADD A, B, C, TO C, D (C), E. 

is equivalent to executing the following series of statements^ 

ADD A, B, C GIVING TEMP. 

ADD TEMP TO C. 

ADD TEMP TO D(C). 

ADD TEMP TO E. 

where TEMP is a compilei — supplied temporary result field. Note 
that, when the addition operation for D(C) is performed* the 
subscript C contains the new value of C. 






Programming Notes 



In all arithmetic statements, it is the user's responsibility to 
define data with enough digits and decimal places to ensure the 
desired accuracy in the final result. (See Appendix D on 
Intermediate Results.) 






ADD STATEMENT 



The ADD statement causes two or more numeric operands to be 
summed and the result to be stored. 

In Formats 1 and 2, each identifier, except those following the 
key word GIVING, must name an elementary numeric item. 

In Format 2, each identifier following the key word GIVING must 
name an elementary numeric or numeric edited item. 

In Format 3, each identifier must name a group item. 

Each literal must be a numeric literal. 

In Format 1, all identifiers or literals preceding the key word 
TO are added together, and this sum is added to and stored 
immediately in identifiei — m, and then, if specified, added to 
and stored immediately in identifiei — n, and so forth. 

In Format 2, there must be at least two operands preceding the 
key word GIVING. The values of these operands are added 
together, and the sum is stored as the new value of 
identifiei — m, and (if specified) identifiei — n, and so forth. 

In Format 3, elementary data items within identifier-1 are added 
to and stored in the corresponding elementary items within^ 
identifiei — 2. (See the preceding description of the 
CORRESPONDING Option.) 



o 
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SUBTRACT STATEMENT 



o 



Format 1 

I identifier-l | | identifier-2 I 
ADD < > < > . . . 

I literal-1 | | literal-2 I 

L J L J 

10 identifier-m [ ROUNDED ] 

[identifier-n [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

Format 2 

I identifier-l | j identifiei — 2 | | identifier-3 | 

ADD < > < > < > 

I literal-1 I | literal-2 I I literal-3 I 

L J L J L J 

GIVING identifier-m [ ROUNDED ] 

[identifier-n [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

Format 3 

\ CORRESPONDING 1 

ADD < > 

I CORR I 

L J 

identifier-l JO identifier-2 [ ROUNDED ] 

[ON SIZE ERROR imperative-statement] 

For the ROUNDED and SIZE ERROR options, and for operand 
considerati ons/ see the preceding section on Common Options. 

If the composite of operands is 18 digits or less, the compiler 
ensures that enough places are carried so that no significant 
digits are lost during execution. 



The SUBTRACT statement causes one> or the sum of two or more 
numeric items to be subtracted from one or more numeric items, 
and the result to be stored. 

In Formats 1 and 2, each identifier, except those following the 
key word GIVING, must name an elementary numeric item. 

In Format 2, each identifier following the key word GIVING must 
name a numeric elementary or numeric edited elementary item. 

In Format 3, each identifier must name a group item. 

Each literal must be a numeric literal. 

In Format 1, all identifiers or literals preceding the key word 
FROM are added together and this sum is subtracted from and 
stored immediately in identifier — m, and then, if specified, 
subtracted from and stored immediately in identifier — n, and so 
forth. 

In Format 2, all identifiers or literals preceding the key word 
FROM are added together and this sum is subtracted from 
identifiei — m or literal-m. The result of the subtraction is 
stored as the new value of identifier — n, and, if specified, 
i dent i f i er-o, and so forth. 
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In Format 3, elementary data items within identifier-l are 
subtracted from and stored in the corresponding elementary data 
items within i denti f i er-2 . (See the preceding description of the 
CORRESPONDING opti on . ) 



Format 1 



SUBTRACT 



f i 



denti f i er 



-il 



I literal-1 



i denti f ier-2 
literal-2 



FROM i denti fier-m [ ROUNDED ] 

[i denti fier-n [ ROUNDED ] ] ... 

CON SIZE ERROR imperative-statement] 

Format 2 



SUBTRACT 



FROM 



I identifier-l j 
< > 

i literial-1 J 



identi f iei — 2 
literal-2 



[i 



denti f i er 



-.] 



I literal-m 






GIVING identifier-n [ ROUNDED ] 

[identifier-o [ ROUNDED ] ] ... 

CON SIZE ERROR imperative-statement] 

Format 3 

\ CORRESPONDING 1 

SUBTRACT < > 

I CORR I 

L J 

identifier-l FROM identi f ier-2 [ ROUNDED ] 

[ON SIZE ERROR imperative-statement] 

For the ROUNDED and SIZE ERROR options, and for operand 
considerations, see the preceding section on Common Options. 

If the composite of operands i s 18 digits or less, the compiler 
ensures that enough places are carried so that no significant 
digits are lost during execution. 



V/' 



MULTIPLY STATEMENT 



The MULTIPLY statement causes numeric items to be multiplied and 
sets the values of data items equal to the results. 

Each identifier, except those following the key word GIVING, 
must name an elementary numeric item. 

Each identifier following the key word GIVING must name an 
elementary numeric or numeric edited item. 

Each literal must be a numeric literal. 

In Format 1, the value of identifier-l or literal-1 is 
multiplied by the value of i denti fi er-2; the product is then 
placed in identifiei — 2. If identifiei — 3 is specified, the value 
of identifiei — 1 or literal-1 is multiplied by the value of 
identi f ier-2; the product is then placed in identifiei — 3, etc. 



^iu»l' 
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DIVIDE STATEMENT 



O 



o 



identif 1 ei — 1 




1 dentif 1 ei — 2 


< > 


BY 


< > 


literal-1 | 




literal-2 


L J 




, 



Format 1 

I Identifier — 1 | 
MULTIPLY < > BY identifier-2 [ ROUNDED ] 

I literal-l | 

L J 

C identif ier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

In Format 2, the value of identifiei — 1 or literal-1 is 
multiplied by the value of identifiei — 2 or literal-2; the 
product is then stored in i dent i f i er-3, and^ if specified^ 
i dent i f i er-<!^/ etc. 

Format 2 



MULTIPLY 



GIVING identifier-3 [ ROUNDED ] 

[identifier-^ [ ROUNDED ] ] ... 

CON SIZE ERROR imperative-statement] 

For the ROUNDED and SIZE ERROR options, and for operand 
considerations, see the preceding section on Common Options. 



The DIVIDE statement divides one numeric data item into others 
and sets the values of data items equal to the quotient and 
remai nder . 

Identifier-1 and identifier-2 must name an elementary numeric 
item. 

Identifiei — 3 and identifier-^, following the key words GIVING 
and REMAINDER, must name an elementary numeric or numeric edited 
item. 

Each literal must be a numeric literal. 

In Format 1, the value of literal-1 or identifiei — 1 is divided 
into the value of identifiei — 2; the quotient then is placed in 
identifiei — 2. If identifiei — 3 is specified, the value of 
literal-1 or identifier-1 is divided into identifiei — 3; the 
quotient is then placed in identifiei — 3, etc. 

Format 1 

I identifier-1 j 

DIVIDE < > 

I literal-1 | 

L J 

INTO identifier-2 [ ROUNDED ] 

[identifier-3 [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

In Format 2, the value of identifiei — 1 or literal-1 is divided 
into/by the value of identifier-2 or literal-2. The value of 
the quotient is stored in identifier-3, and (if specified) 
i denti f i eh-4, etc. 
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Format 2 



\ identifier-1 1 [ INTO 1 [ identifier-2 1 I 

DIVIDE < > < > < > ^ 

I literal-1 I I BY I I literal-2 | 

L J L J L J 

GIVING identifier-3 [ ROUNDED ] 

CidentifiGr-<» [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

In Format 3, the value of identifiei — 1 or literal-1 is divided 
into/by identifiei — 2 or literal-2. The value of the quotient is 
stored in identifier-3, and the value of the remainder is stored 
in identifiei — 4. 

Format 3 

I identifier-1 1 [ INTO | | identifier-2 1 

DIVIDE < > < > < > 

I literal-1 | | BY | I literal-2 I 

L J L J L J 

GIVING identifier-3 [ ROUNDED ] 
[ REMAINDER i dent i f i er-4] 

tON SIZE ERROR imperative-statement] 

The remainder is defined as the result of subtracting the 
product of the quotient and the divisor from the dividend. If 
identifiei — 3, the quotient, is a numeric edited field, the 
quotient used to calculate the remainder is an intermediate 
field which contains the unedited quotient. 

For the ROUNDED and SIZE ERROR options, and for operand 
considerations, see the preceding section on Common Options. 

For Format 3, the following additional considerations for the 
ROUNDED and SIZE ERROR options apply: 

• When ROUNDED is specified, the quotient used to calculate 
the remainder is an intermediate field which contains the 
quotient truncated rather than rounded. 

• When ON SIZE ERROR is specified, and the size error 
condition occurs on the quotient, no remainder calculation 
is meaningful. Therefore the contents of the quotient field 
(identifiei — 3) and the remainder field (identifiei — 4) are 
unchanged. 

• When ON SIZE ERROR is specified, and the size error occurs 
on the remainder, the contents of the remainder field 
(identifier-^) are unchanged. 

Note* In both of the last two preceding cases, the user must 
analyze the results to determine which situation has actually 
occurred. 



y 
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COMPUTE STATEMENT 



o 



The COMPUTE statement assigns to one or more data items the 
value of an arithmetic expression. 

Format 

COMPUTE identifier-1 [ ROUNDED ] 

[identifier-2 [ ROUNDED ] ] ... 

= arithmetic-expression 

[ON SIZE ERROR imperative-statement] 

The COMPUTE statement allows the user to combine arithmetic 
operations without the restrictions on receiving data items 
imposed by the rules for the ADD, SUBTRACT, MULTIPLY, and DIVIDE 
statements. 

The identifiers that appear to the left of the equal sign (=) 
must name either elementary numeric items or elementary numeric 
edited items. 

When the COMPUTE statement is executed, the value of the 
arithmetic-expression is calculated, and this value is then 
stored as the new value of identifier-1, identifiei — 2, etc. in 
turn. 

The arithmetic-expression may be any arithmetic-expression as 
defined in the chapter on Arithmetic Expressions. 

An arithmetic-expression consisting of a single identifier or 
literal allows the user to set identifier-1, etc. equal to the 
value of that identifier or literal. 

For the ROUNDED and SIZE ERROR options, and for operand 
considerations, see the preceding section on Common Options. 



Programming Notes 



Mhen arithmetic operations must be combined, the COMPUTE 
statement is more efficient than the separate arithmetic 
statements written in series. 

Note? When computing a value with a fractional exponent, the 
floating-point feature is used, and rounding will occur. 
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DATA MANIPULATION STATEMENTS 



Movement and inspection of data ar& the functions of the 
following COBOL statements: MOVE, INSPECT, STRING, and 
UNSTRING. 

I IBM Extension 1 

The TRANSFORM statement is also a data manipulation statement. 

' End of IBM Extension ' 

OVERLAPPING OPERANDS 

Ulhen the sending and receiving fields of a data manipulation 
statement share a part of their storage (that is, when the 
operands overlap), the result of the execution of such a 
statement is unpredictable. 



( 



^' 



MOVE STATEMENT 



The MOVE statement transfers data from one area of storage to 
one or more other areas. 

Format 1 

I identifier-1 I 
MOVE < > TO identifier-2 C i dentif ier-3] ] ... 

I literal j 



Format 2 



'O^ 



\ CORRESPONDING 1 



MOVE < > identifier-1 TO i dentif ier-2 

I CORR I 

L J 

Identifiei — 1 and literal are the sending areas. Identifiei — 2, 
identif ier-3, etc. are the receiving areas. 

Ulhen Format 1 is specified, all identifiers may be either group 
or elementary items. The data i n the sending area is moved into 
the first receiving area ( i denti f i er-2) , then into the second 
receiving area (identifiei — 3), etc. See the following 
descriptions of Elementary and Group Moves. 

When Format 2 is specified, both identifiers must be group 
items. CORR is an abbreviation for, and equivalent to, 
CORRESPONDING. When CORRESPONDING is specified, selected items 
in identifiei — 1 aret moved to identifiei — 2 according to the rules 
for the CORRESPONDING Option in the chapter on Arithmetic 
Statements. The results are the same as if each pair of 
CORRESPONDING identifiers had been referred to in a separate 
MOVE statement. 

An index data item cannot be specified in a MOVE statement. 

Any subscripting or indexing associated with the sending item is 
evaluted only once: immediately before the data is moved to the 
first receiving field. 

Any subscripting or indexing associated with the receiving items 
is evaluated immediately before the data is moved into the 
receiving item. 
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Elementary Moves 






For examplBf the result of the statement: 

MOVE A (B) TO B, C(B). 

is equivalent to 

MOVE A (B) TO TEMP. 

MOVE TEMP TO B. 

MOVE TEMP TO C(B). 

where TEMP has been defined as an intermediate result item. 
Note that the subscript B has changed in value between the time 
the first move took places and the final move to C (B) is 
executed. 

After execution of a MOVE statements the sending fieldCs) 
contains the same data as before execution. 



An elementary move is one in which both the sending and 
receiving items Bre elementary items. Each elementary item 
belongs to one of the following categories^ 

• Numeric — includes numeric data items» numeric literals^ and 
the figurative constant ZERO/ZEROS/ZEROES. 

• Alphabeti c — includes alphabetic data items and the 
figurative constant SPACE/SPACES. 

• Alphanumeric — includes alphanumeric data items» nonnumeric 
literals/ and all figurative constants except ZERO and 
SPACE. 

• Alphanumeri c Edi ted — includes alphanumeric edited data 
items. 

• Numeric Edited — includes numeric edited data items. 

Figure ^9 shows valid and invalid elementary moves for each 
category. Valid elementary moves are executed according to the 
following rules? 

• Any necessary conversion of data from one form of internal 
representation to another takes place during the move^ along 
with any specified editing in the receiving item. 

• For an alphanumeri c or alphanumeric edited receiving item? 

— Alignment and any necessary space filling take pldce as 
described in Standard Alignment Rules. 

— If the size of the sending item is greater than that of 
the receiving item, excess characters at the right are 
truncated after the receiving item is filled. 

— If the sending item has an operational sign, the 
absolute value is used. If the operational sign 
occupies a separate character, that character is not 
moved, and the size of the sending item is considered to 
be one less than its actual size. 
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Sending 

Item 

Category 


Receiving Item Category 


Alphabetic 


Alphanumeric 


Alphanumeric 
Edited 


Numeric 
Integer 


Numeric 
Noninteger 


Numeric 
Edited 


Alphabetic 
and SPACE 


YES 


YES 


YES 


NO 


NO 


NO 


Alphanumeric 

and 

Fig. Cons. (1) 


YES 


YES 


YES 


YES 
(3) 


YES 
(3) 


YES 
(3) 


Alphanumeric 
Edited 


YES 


YES 


YES 


NO 


NO 


NO 


Numeric 
Integer (2) 
and ZERO 


NO 


YES 


YES 


YES 


YES 


YES 


Numeric 
Noninteger (2) 


NO 


NO 


NO 


YES 


YES 


YES 


Numeric 
Edited 


NO 


YES 


YES 


NO 


NO 


NO 


(l)-Includes nonnumeric literals and all Figurative Constants but SPACE and ZERO. 

(2)-Includes numeric literals 

(3) -Nonnumeric literals must consist only of numeric characters and will be treated as a numeric integer field 

YES = move is valid 

NO = move is invalid 



.4 



Figure ^9. Valid and Invalid Elementary Moves 



/" ■>, 




• For a numeri c or numeric edited receiving item? 

■- Alignm« 
take pj 

the Da--, .. -. . 

replaced due to editing requirements 

- If the receiving item is signed* the sign of the sending 
item is placed in the receiving item* with any necessary 
sign conversion. If the sending item is unsigned* a 
positive operational sign is generated for the receiving 
item, 

- If the receiving item is unsigned, the absolute value of 
the sending item is moved* and no operational sign is 
generated for the receiving item. 

- When the sending item is alphanumeric* the data i s moved 
as if the sending item were described as an unsigned 
integer. 

Note: If the receiving field is alphanumeric or numeric edited* 
and the sending field is a scaled integer (that is* has a P as 
the rightmost character in its PICTURE character-string)* the 
scaling positions are treated as trailing O's when the MOVE 
statement is executed. The rules for scaled integers as 
previously implemented are given in Appendix A. 

• For an alphabetic receiving fields 

- Alignment and any necessary space filling take place as 
described in "Standard Alignment Rules"* under "Data 
Description." 
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Group Moves 



— If the size of the sending item is greater than that of 
the receiving itern^ excess characters at the right are 
truncated after the receiving item is filled. 



A group move is one in which one or both of the sending and 
receiving fields is a group item. A group move is treated 
exactly as though it Mere an alphanumeric elementary move^ 
except that there is no conversion of data from one form of 
internal representation to another. In a group move, the 
receiving area is filled without consideration for the 
individual elementary items contained within either the sending 
area or the receiving area. However^ see the OCCURS clause 
description in the Table Handling chapter. 






INSPECT STATEMENT 



Format 



The INSPECT statement specifies that characters in a data item 
are to be counted^ replaced^ or counted and replaced. 



INSPECT identifier-1 

[ TALLYING < identifier-2 



rl! 



ALL 1 r identifier-3 
> < 



FOR < < 1 LEADING I I literal-1 
I I L J L 

^ I CHARACTERS 



!1 

I > 



1 



[ 1 . 

BEFORE I I identifier-** I I 
> INITIAL < 
I I literal-2 



AFTER 



> ] >. 

I 

J 



^ 






.] 



[REPLACING 



CHARACTERS BY 



I identifier-6 I 



I literal-4 



r BEFORE 1 [ identifier-7 1 

[ < > INITIAL < > ] 



I AFTER I 

L J 



I literal-5 

L 



r I ALL I r I identifiei — 5 | I identifier-6 I 
< < LEADING > < < > BY < > 



^ I FIRST I •- I literal-3 

L J L 



I literal-^ 

L 



\ s 



-7 1 



I BEFORE I I identifier-/ i i 
[ < > INITIAL < > ] >...>... 

I AFTER I I literal-5 | -» ■• 






Either the TALLYING or the REPLACING option must be specified. 
Both may be specified; when both are specified^ all tallying is 
performed before any replacement is made. 
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Identifier-l is the inspected item; it must be an elementary or 
group item with USAGE DISPLAY, 

All other identifiers, except identifiei — 2 (the count field), 
must be elementary alphabetic, alphanumeric, or external decimal 
items. Each is treated according to its data category, as 
follows^ 

• ALPHABETIC OR ALPHANUMERIC ITEM : treated as a 
character-string. 

• ALPHANUMERIC EDITED, NUMERIC EDITED, OR UNSIGNED NUMERIC 
(EXTERNAL DECIMAL) ITEM : treated as though redefined as 
alphanumeric and the INSPECT statement refers to the 
alphanumeric item. 

• SIGNED NUMERIC (EXTERNAL DECIMAL) ITEM : treated as though 
moved to an unsigned external decimal item of the same 
length, and then treated as though redefined as alphanumeric 
and the INSPECT statement refers to the alphanumeric item. 
If the sign is a separate character, the byte containing the 
sign i s not examined and therefore not replaced. 

Each literal must be nonnumeric and may be any figurative 
constant except ALL literal. 

Except when the BEFORE/AFTER option is specified, inspection 
begins at the leftmost character position of the inspected item 
(identifier-l) and proceeds character-by-character to the 
ri ghtmost. 

The operands of the TALLYING option (literal-1 or i denti f i er-3, 
and so forth) and/or REPLACING option (literal-3 or 
i dent i f i er-5, etc.) are compared in the left-to-right order they 
are specified in the INSPECT statement. (In the following 
discussion, the TALLYING/REPLACING operands are the comperands . ) 
In any one INSPECT statement, no more than 15 comperands may be 
speci f i ed. 

The following comparison rules apply: 

1. When both the TALLYING and REPLACING options are specified, 
the INSPECT statement is executed as i f an INSPECT TALLYING 
statement were specified, immediately followed by an INSPECT 
REPLACING statement. 

2. The first comperand is compared with an equal number of 
leftmost contiguous characters in the inspected item. The 
comperand matches the inspected characters only if both are 
equal character-f oi — character. 

3. If no match occurs for the first comperand, the comparison 
is repeated for each successive comperand until either a 
match is found or all comperands have been acted upon. 

4. If a match is found, tallying or replacing takes place as 
described in the following TALLYING/REPLACING option 
descriptions. In the inspected item, the first character 
following the rightmost matching character is now considered 
the leftmost character position. The process described in 2 
and 3 (above) is then repeated. 

5. If no match is found, then in the inspected item the first 
character following the leftmost inspected character is now 
considered the leftmost character position. The process 
described in 2 and 3 (above) is then repeated. 

6. If the CHARACTERS option is specified, an implied 
one-character comperand is used in the process described in 
2 and 3 (above). The implied character is considered always 
to match the inspected character in the inspected item. 

7. The actions taken in steps 1 through 6— defined as the 
comparison cycle — are repeated until the rightmost character 



1. 



\.-.>^ 
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in the inspected item has either been matched or has been 
considered as the leftmost character position. Inspection 
then terminates. 

Ulhen the BEFORE/AFTER option is specified^ the preceding rules 
are modified as described in the following BEFORE/AFTER option 
descri ption. 

Figure 50 illustrates INSPECT statement comparisons. 



INSPECT ID-1 TALLYING ID-2 FOR ALL "XK" 
REPLACING ALL "X5<" BY ZEROS. 



ID— 1 before 
executi on 



Execution for 
TALLYING option: 
1st 
compari son 



)( X M ^ ^ 



2nd 
compari son 

3rd 
comparison 

4th 
compari son 

Execution for 

REPLACING option 

5th 

comparison ^ 



6 th 
compari son 

7 th 
compari son 

8th 
compari son 



X ^ X < 



^ 



X 



X X 



X < 



ID-2 before 

execution ' 

( i ni t iali zed by 
programmer) 
TALLYING ID-2 

comperands contains- 



X X 



X X 



X X 



X X 



X X 
X X 
X X 



(true) 



(false) 



X X (false) 



(true) 



(true) 



ID— 1 changed 
to: 



(false) 



(false) 



ID-1 
unchanged 



ID-1 
unchanged 



ID— 1 changed 
(true) to: 



At the end of inspection: 



ID-1 
contai ns: 



0X000 



ID-2 
contains: 






Figure 50. INSPECT Statement Execution Results 
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TALLYING option 

Identifier-2 is the count field and must be an elementary I 

integer item defined without the symbol P in its PICTURE \..._.J^ 

character-string. It is the programmer's responsibility to 
initialize identifier-2 before the INSPECT statement is 
executed. 

Identifier-3 or literal-1 is the tallying field . If the 
tallying field is a figurative constants it is considered to be 
a one-character nonnumeric literal. 

When the BEFORE/AFTER option is not specified, the following 
actions take place when the INSPECT TALLYING statement is 
executed: 

• If ALL is specified, the count field is increased by 1 for 
each nonoverlappi ng occurrence in the inspected item of this 
tallying field, beginning at the leftmost character position 
and continuing to the rightmost. 

• If LEADING is specified, the count field is increased by 1 
for each contiguous nonoverlappi ng occurrence of this 
tallying field in the inspected item, provided that the 
leftmost such occurrence is at the point at which comparison 
began in the first comparison cycle for which this tallying 
field is eli(^ible to participate. 

• If CHARACTER'S is specified, the count field is increased by 
1 for each character (including the space character) in the 
inspected item. Thus, execution of the INSPECT TALLYING 
statement increases the value in the count field by the 
number of characters in the inspected item. 

REPLACING Option ^ x 

Identifiei — 5 or literal-3 is the subject field . V_^' 

Identifier-6 or literal-4 is the substitution field . 

The subject field and the substitution field must be the same 
length. The following replacement rules apply J 

• If the subject field is a figurative constant, it is 
considered to be a one-character nonnumeric literal. Each 
character in the inspected item equivalent to the figurative 
constant is replaced by the single-character substitution 
field, which must be one character in length. 

• If the substitution field is a figurative constant, the 
substitution field is considered to be the same length as 
the subject field. Each nonoverlappi ng occurrence of the 
subject field in the inspected item is replaced by the 
substitution field. 

• Uihen the subject and substitution fields are 
charactei — strings, each nonoverlappi ng occurrence of the 
subject field in the inspected item is replaced by the 
character-string specified in the substitution field. 

• After replacement has occurred in a given character position 
in the inspected item, no further replacement for that 
character position is made in this execution of the INSPECT 
statement. 

• When the BEFORE/AFTER option is not specified, the following 
actions take place when the INSPECT REPLACING statement is 
executed: 

• If CHARACTERS is specified, the substitution field must be ,f '^ 
1-character in length. Each character in the inspected .^ /' 
field is replaced by the substitution field, beginning at 

the leftmost character and continuing to the rightmost. 
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If ALL is specified* each nonoverlappi ng occurrence of the 
subject field in the inspected item is replaced by the 
substitution field* beginning at the leftmost character and 
continuing to the rightmost. 

If LEADING is specified, each contiguous nonoverlappi ng 
occurrence of the subject field in the inspected item is 
replaced by the substitution field* (provided that the 
leftmost such occurrence is at the point where comparison 
began in the first comparison cycle for which this 
substitution field is eligible to participate). 

If FIRST is specified* the leftmost occurrence of the 
subject field in the inspected item is replaced by the 
substitution field. 



BEFORE/AFTER Options 



o 



When these options are specified* the preceding rules for 
counting and replacing are modified. 

Identifiei — 4* identifiei — 7* literal-2* and literal-5 sre 
del imi ters . Counting and/or replacement of the inspected item 
is bounded by their presence* however* the delimiters themselves 
are not counted or replaced. 

In the TALLYING option* if the delimiter (literal-2) is a 
figurative constant* it is considered to be 1 character in 
length. 

In the REPLACING option* if the CHARACTERS phrase is specified* 
the delimiter (literal-5 or i dent i f i er-7 ) must be 1 character in 
length. 

When BEFORE is specified* counting and/or replacement of the 
inspected item begins at the leftmost character and continues 
until the first occurrence of the delimiter is encountered. If 
no delimiter is present in the inspected item* counting and/or 
replacement continues to the rightmost character. 

When AFTER is specified* counting and/or replacement of the 
inspected item begins with the first character to the right of 
the delimiter and continues to the rightmost character in the 
inspected item. If no delimiter is present in the inspected 
item* no counting or replacement takes place. 



INSPECT Statement Examples 



The following examples illustrate some uses of the INSPECT 
statement. Note that in all instances the programmer has 
initialized the COUNTR field to before the INSPECT statement 
i s executed. 

INSPECT ID-1 REPLACING CHARACTERS BY ZERO. 

lD-1 Before COUNTR After ID-1 After 

1234567 0000000 

HIJKLMN 0000000 

INSPECT ID-1 TALLYING COUNTR FOR CHARACTERS 
REPLACING CHARACTERS BY SPACES. 



o 



ID-1 Before 


COUNTR After 


ID-1 After 


1234567 


7 




HIJKLMN 


7 





INSPECT ID-1 REPLACING CHARACTERS BY ZEROS 
BEFORE INITIAL QUOTE. 
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ZD-1 Before 

456"ABEL 
ANDES"12 
"TWAS BR 



COUNTR After 







INSPECT ID-1 TALLYING COUNTR FOR 
AFTER INITIAL "S" 
REPLACING ALL "A" BY "0", 



ID-1 Before 

ANSELM 
SACKET 
PASSED 



COUNTR After 
3 

5 
3 



INSPECT ID-1 TALLYING COUNTR FOR 
REPLACING FIRST "A" BY "2" 
AFTER INITIAL "C". 



ID-1 Before 

OOACADEMYOO 
OOOOALABAMA 
CHATHAMOOOO 



COUNTR After 
2 





ID-1 After 

000"ABEL 

00000"12 

"TWAS BR 

CHARACTERS 

iD-1 After 

ONSELM 
SOCKET 
POSSED 
LEADING "0" 

ID-1 After 
00AC2DEMY00 
OOOOALABAMA 
CH2THAM0000 



Programming Notes 



The INSPECT statement is useful for filling portions or all of a 
data item with spaces or 0*s. It is also useful for counting 
the number of times a specific character (zero, space, asterisk* 
and so forth) occurs in a data item. In addition, it can be 
used to translate characters from one collating sequence to 
another. 



\^^ 
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STRING STATEMENT 






ThQ STRING statement gives the programmer the ability to put 
together the partial or complete contents of two or more data 
items in one single data item. 

Format 



I identifiei — 1 | 

STRING < > 

I literal-1 | 

L J 



i denti f i er 
li teral-2 



-al 



Fi 



DELIMITED BY 



i dentif i er 



) literal-^ 



-.1 f 



DELIMITED BY 



I i denti fier-3 I 
< literal-3 > 



i denti f i er 
li teral-5 



-'1 . 



I identifier-6 I 
< literal-6 



SIZE 



> 3 
I 



o 



INTO identifier-7 
tWITH POINTER i denti fi er-83 
tON OVERFLOW imperative-statement] 

Each literal must be a nonnumeric literal; each may be any 
figurative constant except the ALL literal. Uihen a figurative 
constant is specified^ it is considered a 1-character nonnumeric 
literal. 



item)/ must 



i denti f iei — ^» 



All identifiers/ except identifier-8 (the POINTER 
have USAGE DISPLAY, explicitly or implicitly. 

The sending fields are identifiei — 1, i denti fi er-2, 
identifiei — 5, or their corresponding literals. 

The receiving field is identifiei — It which must be an elementary 
alphanumeric item without editing symbols, and without the 
JUSTIFIED clause in its description. 

The del imi ters are identifier-3, identifiei — 6» and their 
corresponding literals, or the key word SIZE. The delimiters 
specify the character (s) delimiting the data to be transferred; 
when SIZE is specified, the complete sending area is 
transferred. 

When the sending field or any of the delimiters ^vbl elementary 
numeric items, they must be described as integers, and their 
PICTURE charactei — strings must not contain the symbol P. 

The pointer field is identifiei — 8, which must be an elementary 
integer data item large enough to contain a value equal to the 
length of the receiving area plus 1. The pointer field must not 
contain the symbol P in its PICTURE character-string. 



STRING Statement Execution 



When the STRING statement is executed, data is transferred from 
the sending fields to the receiving field. The order in which 
sending fields are processed is the order in which they are 
specified. The following rules apply? 
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• Characters from the sending fields &re transferred to the 
receiving field according to the rules for alphanumeric to 
alphanumeric elementary movest except that no space filling 
is provided (see the preceding MOVE statement description), 

• When DELIMITED BY identifier/literal is specified, the 
contents of each sending item are transferred 
charactei — by-character beginning with the leftmost and 
continuing until either? 

— A delimiter for this sending field is reached (the 
delimiter itself is not transferred) f or 

— The rightmost character of this sending field has been 
transferred. 

• When DELIMITED BY SIZE is specified, each entire sending 
field is transferred to the receiving field, 

• When the receiving field is filled, or when all of the 
sending fields have been processed, the operation is ended. 

• When the POINTER option is specified, an explicit pointer 
field is available to the COBOL user to control placement of 
data in the receiving field. The user must set the explicit 
pointer's initial value, which must not be less than 1 and 
not more than the character count of the receiving field. 
(Note that the pointer field must be defined as large enough 
to contain a value equal to the length of the receiving 
field plus 1; this precludes arithmetic overflow when the 
system updates the pointer at the end of the transfer.) 

• When the POINTER option is not specified, no pointer is 
available to the user. However, a conceptual implicit 
pointer with an initial value of 1 is used by the system. 

• Conceptually, when the STRING statement is executed, the - i 
initial pointer value (explicit or implicit) is the first V,jl^ 
character position within the receiving field into which 

data is to be transferred. Beginning at that position, data 
is then positioned charactei — by-character from left to 
right. After each character i s posi ti oned, the explicit or 
implicit pointer is incremented by 1. The value in the 
pointer field is changed only in this manner. At the end of 
processing, the pointer value always indicates one character 
beyond the last character transferred into the receiving 
field. 

• If, at any time during or after initiation of STRING 
statement execution, the pointer value (explicit or 
implicit) is less than 1 or exceeds a value equal to the 
length of the receiving field, no more data is transferred 
into the receiving field, and, if specified, the ON OVERFLOW 
imperative-statement is executed. 

• If the ON OVERFLOW option is not specified, then, when the 
preceding conditions occur, control passes to the next 
executable statement. 

After STRING statement execution is completed, only that part of 
the receiving field into which data was transferred is changed. 
The rest of the receiving field contains the data that was 
present before this execution of the STRING statement. 

Figure 51 illustrates the rules of execution for the STRING 
statement. 



In 
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o 



o 



When the following STRING statement is executed: 



STRING ID-1 ID-2 DELIMITED BY ID-3 
ID-4 ID-5 DELIMITED BY SIZE 
INTO ID-7 WITH POINTER ID-8. 

The following results are obtained: 

ID-4 at execution ID-1 at execution 



ID-2 at execution 



ID-5 at execution 



6 


7 


8 


9 


* 






Third group of 
characters moved 



1 



A 


* 


B 


C 



D E 



First group of 
characters moved 



Second group of 
characters moved 



Fourth group of 
characters moved 



ID-3 

(delimiter) 
at execution 



Q 



G Z 



ID-7 after execution (initialized to ALL Z before execution) 



ID-8 

(pointer) 
after execution 



1 


6 



(initialized to 01 before execution) 



Figure 51. STRING Statement Execution Results 



STRING Statement Example 



The following illustrates some of the considerations that apply 
to the STRING statement. 

In the Data Division^ the programmer has defined the following 
fields: 

77 RPT-LINE PICTURE X(120). 

77 LINE-POS PICTURE 99. 

77 LINE-NO PICTURE 9(5) VALUE 1. 

77 DEC-POINT PICTURE X VALUE ".". 
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In the File Section^ the following input record is defined? 
01 



RCD- 


-01. 








05 


CUST-INFO. 










10 CUST-NAME 


PICTURE 


X(15). 






10 CUST-ADDR 


PICTURE 


X(35). 




05 


BILL-INFO. 










10 INV-NO 


PICTURE 


X(6). 






10 INV-AMT 


PICTURE 


$$,$$$, 


99. 




10 AMT-PAID 


PICTURE 


$$,$$$. 


99. 




10 DATE-PAID 


PICTURE 


X(8). 






10 BAL-DUE 


PICTURE 


$$,$$$, 


99. 




10 DATE-DUE 


PICTURE 


X(8). 





( 



The programmer wants to construct an output line consisting of 
portions of the information from RCD-01. The line is to consist 
of a line number » customer name and address^ invoice number » 
next billing date^ and balance due^ truncated to the dollar 
figure shown. 

The record as read in contains the following information? 

J.B.bSMITHbbbbb 

444bSPRINGbST.,bCHICAG0,bILL.bbbbbb 

A14275 

$4,736.85 

$2,400.00 

09/22/76 

$2,336.85 

10/22/76 

In the Procedure Division, the programmer initializes RPT-LINE 
to SPACES, and sets LINE-POS (which is to be used as the POINTER 
field) to 4. This STRING statement is then issued? 

STRING LINE-NO SPACE CUST-INFO INV-NO SPACE DATE-DUE 
SPACE DELIMITED BY SIZE 
BAL-DUE DELIMITED BY DEC-POINT 
INTO RPT-LINE WITH POINTER LINE-POS. 

Uhen the statement is executed, the following actions take 
place? 

The field LINE-NO is moved into positions 4 through 8 of 
RPT-LINE. 

A space is moved into position 9. 

The group item CUST-INFO is moved into positions 10 through 
59. 

INV-NO is moved into positions 60 through 65. 

A space is moved into position 66. 

DATE-DUE is moved into positions 67 through 74. 

A space is moved into position 75. 

The portion of BAL-DUE that precedes the decimal point is 
moved into positions 76 through 81. 

At the end of execution of the STRING statement, RPT-LINE 
appears as shown in Figure 52. 



''X^ 
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Column 
4 10 

1 1 

00001 J.B. SMITH 444 SPRING ST., CHICAGO, ILL. nh A14725 10/22/76 $2,336 



Figure 52, STRING Statement Example — Output 



Programming Notes 



One STRING statement can be written instead of a series of MOVE 
statements. In communication applications^ this is especially 
useful in assembling messages to be transmitted. 



UNSTRING STATEMENT 



o 



The UNSTRING statement causes contiguous data in a sending field 
to be separated and placed into multiple receiving fields. 

Format 

UNSTRING identifier-1 

I i denti f i er-2 | 
[ DEIIMITED BY CALL] < > 

I literal-1 I 

L J 

I i denti fier-3 | 
tOR C ALL ] < >]...] 

I literal-2 J 

INTO identif ier-A 

[ DELIMITER IN i denti fier~5] 
[ COUNT IN i denti fier-6] 

[ i denti fiei — 7 

[ DELIMITER IN i denti fi er-83 
[COUNI IN identifier-9] ] ... 

[WITH POINTER i denti fi er-10] 

[ TALLYING IN i denti fi er-ll] 

CON OVERFLOW imperative-statement] 

Each literal must be a nonnumeric literal; each may be any 
figurative constant except the ALL literal. When a figurative 
constant is specified* it is considered to be a 1-character 
nonnumeric literal. 
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Sending Field 



Identifier-l i s the sending field . It must be an alphanumeric \ .> 
data item. Data is transferred from this field to the receiving 
fields. 

DELIMITED BY OPTION^ This option specifies delimiters within the 
data that control the data transfer. 

The delimi ters are identifiei — 2, identifiei — 3* or their 
corresponding literals. Each identifier or literal specified 
represents one delimiter. No more than 15 delimiters may be 
specified. Each must be an alphanumeric data item. 

If a delimiter contains two or more characters^ it is recognized 
as a delimiter only if the delimiter characters are contiguous^ 
and in the sequence specified* in the sending field. 

When two or more delimiters are specified* an OR condition 
exists* and each nonoverlappi ng occurrence of any one of the 
delimiters is recognized in the sending field in the specified 
sequence. For example* if DELIMITED BY "AB" OR "BC" is 
specified* then an occurrence of either AB or BC in the sending 
field is considered a delimiter; an occurrence of ABC is 
considered an occurrence of AB. 

When DELIMITED BY ALL is not specified* and two or more 
contiguous occurrences of any delimiter are encountered* the 
current data receiving field is space filled or zero filled 
according to the description of the data receiving field. 

When DELIMITED BY ALL is specified* one or more contiguous 

occurrences of any delimiter are treated as if they were only 

one occurrence* and this one occurrence is moved to the 

delimiter receiving field Cif specified). The delimiting 

characters in the sending field are treated as an elementary 

alphanumeric item and are moved into the current delimiter %^-/ 

receiving field according to the rules of the MOVE statement. 

Note: Rules for the DELIMITED BY ALL option as previously 
implemented are given in Appendix A. 

Unless the DELIMITED BY option is specified* the DELIMITER IN 
and COUNT IN options must not be specified. 



r" "\ 



Data Receiving Fields 



Identifier-^* identifiei — 7* etc.* are the data receiving fields * 
and must have USAGE DISPLAY. These fields can be defined as^ 

• Alphabetic (without the symbol B in the PICTURE string) 

• Alphanumeric 

• Numeric (without the symbol P in the PICTURE string) 

These fields must not be defined as alphanumeric edited or 
numeric edited items. Data is transferred to these fields from 
the sending field. 

DELIMITER IN OPTION: The delimiter receiving fields are 
identifiei — 5* identifiei — 8* etc. These identifiers must be 
alphanumeri c. 

COUNT IN OPTION •• The data-count fields for each data transfer 

are identifiei — 6* identifiei — 9* and so forth. Each field holds 

the count of examined characters in the sending field* 

terminated by the delimiters or the end of the sending field* 

for the move to this receiving field* the delimiters are not M" ~^'': 

included in this count. 
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\ ?^ i>^^ POUMIEF OPTION: The pointer field is identi f ier-10; it contains 

5c'»^^ V '>^^ «* value that indicates a relative position in the sending field. 
^' ^\ When this option is specified* the user must initialize this 

V field before execution of the UNSTRING statement is begun. 

TALLYING OPTION: The field-count field is i denti f i er~ll ; it is 
increased by the number of data receiving fields acted upon in 
this execution of the UNSTRING statement. When this option is 
specified* the user must initialize this field before execution 
of the UNSTRING statement is begun. 

The data-count fields* the pointer field* and the field-count 
field must each be an integer item without the symbol P in the 
PICTURE character-string. 

UNSTRING Statement Execution 

When the UNSTRING statement is initiated* the current data 
receiving field is identifier-^. Data is transferred from the 
sending field to the current data receiving field according to 
the following rules: 

• If the POINTER option is not specified* the sending field 
charactei — string is examined beginning with the leftmost 
character. If the POINTER option is specified* the field is 
examined beginning at the relative character position 
specified by the value in the pointer field. 

• If the DELIMITED BY option is specified* the examination 
proceeds left to right character-by-character until a 
delimiter is encountered. If the end of the sending field 
is reached before a delimiter is found, the examination ends 
with the last character in the sending field. 

• If the DELIMITED BY option is not specified* the number of 
characters examined is equal to the size of the current data 
receiving field, which depends on its data category: 

— If the receiving field is alphanumeric or alphabetic* 
the number of characters examined is equal to the number 
of characters in the current receiving field. 

— If the receiving field is numeric* the number of 
characters examined is equal to the number of characters 
in the integer portion of the current receiving field. 

-■ If the receiving field is described with the SIGN IS 
SEPARATE clause* the characters examined are one fewer 
than the size of the current receiving field. 

— If the receiving field is described as a variable-length 
data item* the number of characters examined is 
determined by the current size of the current receiving 
field. 

• The examined characters (excluding any delimiter characters) 
are treated as an alphanumeric elementary item* and are 
moved into the current data receiving field according to the 
rules for the MOVE statement (see the preceding MOVE 
statement description). 

• If the DELIMITER IN option is specified* the delimiting 
characters in the sending field s^re^ treated as an elementary 
alphanumeric item and s^re. moved to the current delimiter 
receiving field according to the rules for the MOVE 
statement. If the delimiting condition is the end of the 
sending field, the current delimiter receiving field is 
filled with spaces. 

• If the COUNT IN option is specified* a value equal to the 
number of examined characters (excluding any delimiters) is 
moved into the data count field* according to the rules for 
an elementary move. 
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If the DELIMITED BY option is specified* the sending field 

is further examined* beginning with the first character to ^f"^ 

the right of the delimiter. 1; 

If the DELIMITED BY option is not specified, the sending 
field is further examined, beginning with the first 
character to the right of the last character examined. 

After data is transferred to the first data receiving field 
(identifiei — ^) the current data receiving field becomes 
identifiei — 7. For each succeeding current data receiving 
field, the preceding procedure is repeated — either until all 
of the characters in the sending field have been 
transferred, or until there are no more unfilled data 
receiving fields. 

When the POINTER option is specified, the contents of the 
pointer field act as if increased by 1 for each examined 
character in the sending field. Ulhen this execution of the 
UNSTRING statement is completed, the pointer field contains 
a value equal to i t s i-^ n t i a 1 va J ^nj ^e plus the number of 
characters examined i ri the sendiTig field. 

bihen the TALLYING option is specified, then, when this 
execution of the UNSTRING statement is completed, the 
field-count field contains a value equal to the initial 
value plus the number of data receiving areas acted upon; 
this count includes any null fields. 

When an overflow condition exists, the execution of the 
UNSTRING statement is ended. If the ON OVERFLOW option has 
been specified, that imperative-statement is executed. If 
the ON OVERFLOW option has not been specified, control 
passes to the next executable statement. An overflow 
condition exists when^ 

- An UNSTRING statement is initiated, and the value in the t ^ 
pointer field is less than 1 or greater than the length %-,-J^ 
of the sending field. 



— If, during UNSTRING statement execution, all data 

receiving fields have been acted upon, and the sending 
field still contains unexamined characters. 

Figure 53 illustrates the rules of execution for the UNSTRING 
statement. 

Note: If any of the UNSTRING statement identifiers &re 
subscripted or indexed, the subscripts and indexes are evaluated 
as follows; 

• Any subscripting or indexing associated with the sending 
field, the pointer field, or the field-count field is 
evaluated only once — immediately before any data is 
transferred. 

• Any subscripting or indexing associated with the delimiters, 
the data and delimiter receiving fields, or the data-count 
fields, is evaluated immediately before the transfer of data 
into the affected data item. 
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The following UNSTRING Statement has the execution results shown: 



o 



UNSTRING ID-SEND DELIMITED BY DEL-ID OR ALL "*" 
INTO ID-R1 DELIMITER IN ID-DI COUNT IN ID-CI 

ID-R2 DELIMITER IN ID-D2 

ID-R3 DELIMITER IN ID-D3 COUNT IN ID-C3 

ID-RU COUNT IN ID-CU 
WITH POINTER ID-P 
TALLYING IN ID-T 
ON OVERFLOW GO TO OFLOW-EXIT. 

ID-SEND at execution 



(All the data 
receiving fields 
are defined as 
alphanumeric) 



DEL- ID 

at execution 



©- 



©- 



ID-R1 after execution 



r 

ID-DI 



ID-CI 



(after execution) 



ID-P ID-T 
(pointer) (tallying 
field) 



2 


1 







5 



(after execution — 
both initialized to 
01 before execution) 



(D- ©-©■ 



1 



D E 



©- 



^® 



m 



4 5 6 7 8b 



ID-R2 after 
execution 

f 
ID-D2 



b b b 







B 



ID-R3 after ID-R4 after execution 
execution 

ID-D3 ID-C3 ID-C4 



m 



m H H 



(after execution) (after execution) 



The order of execution is: 

(T) 3 characters are placed in ID-R1 . 

^ Because ALL * is specified, one * is placed 
in ID-DI . 

(3) 5 characters are placed in ID-R2. 

(4) A ? is placed in ID-D2 . The current receiving 
field is now ID-R3 . 

(D A ? is placed in ID-D3; ID-R3 is filled 

with spaces; no characters are transferred, 
so is placed in ID-C3 

(6) No delimiter is encountered before 5 
characters fill ID-R4; 8 is placed in 
ID-C4, representing the number of characters 

_ examined since the last delimiter. 

® 

ID-P is updated to 21, the total length of 
the sending field +1; ID-T is updated to 5, 
the number of fields acted upon. Since there 
are no unexamined characters in the ID-SEND, 
the OVERFLOW EXIT is not taken. 



•o 



Figure 53. Results of UNSTRING Statement Execution 
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UNSTRING Statement Example 



The following example illustrates some of the considerations 
that apply to the UNSTRING statement. 

In the Data Divisionf the programmer has defined the folloMing 
input record to be acted upon by the UNSTRING statement *> 



01 INV-RCD. 

05 CONTROL-CHARS 

05 ITEM-INDENT 

05 FILLER 

05 INV-CODE 

05 FILLER 

05 NO-UNITS 

05 FILLER 

05 PRICE-PER-M 

05 FILLER 

05 RTL-AMT 



PIC XX. 
PIC X(20). 
PIC X. 
PIC X(10). 
PIC X. 
PIC 9(6). 
PIC X. 
PIC 99999. 
PIC X. 
PIC 9(6). 99 




\ 



The next two records are defined as receiving fields for the 
UNSTRING statement. DISPLAY-REC is to be used for printed 
output. WORK-REC is to be used for further internal processing, 



01 



DISPLAY-REC. 
05 INV-NO 
05 FILLER 
05 ITEM-NAME 
05 FILLER 
05 DISPLAY-DOLS 



PIC X(6). 

PIC X VALUE SPACE. 

PIC X(20). 

PIC X VALUE SPACE, 

PIC 9(6). 



01 



WORK-REC. 

05 M-UNITS PIC 9(6). 

05 FIELD-A PIC 9(6). 

05 WK-PRICE REDEFINES FIELD-A PIC 9999V99. 
05 INV-CLASS PIC X(3). 

The programmer has also defined the following fields for use as 
control fields in the UNSTRING statement J 

PIC X. 
PIC 99. 
PIC 99. 
PIC 99. 
PIC 99. 

PIC X. 

PIC X. 



/f" 



77 


DBY-1 


77 


CTR-1 


77 


CTR-2 


77 


CTR-3 


77 


CTR-^ 


77 


DLTR-1 


77 


JiU*«Z^ 


77 


CCHAR-CT 


2^-^ 


-^Tt^s-pr 



LED 



PIC V 



In the Procedure Division^ the programmer writes the following 
UNSTRING statement to move subfilplds of INV-RCD to the subfields 
of DISPLAY-REC and WORK-REC: 



SPACES 
CTR-1 
1 COUNT 



OR 



OR 



IN CTR-2 



UNSTRING INV-RCD DELIMITED BY ALI 
DBY-1 INTO ITEM-NAME COUNT II 
INV-NO DEtHMlTER IN DLTRj 
ITTtFCTASS 
M^mT"COUNT IN CTR-3. 

D:^raC::;P„OLS r^efc-fftli^ IN DLTR-2 COUNT IN CTR-4 

WTTTTp 1 N Tt rx H A R-CT 

TALLYING IN>ri35=rTrLED 

ON OVERFLOW GO TO UNSTRING-COMPLETE. 



Befor'&'"*%hjgUNSTRING J5±^±emient is issued, the programmer places 
the value 3*"Tn'^'irhe"'^H^A!r^C^ POINTER item). Because the 
programmer doesn't wSTrtr-ttT work with the two control characters 
in INV-RCD, the value 3 is placed in the CHAR-CT (the POINTER 
item) before the UNSTRING statement is issued. In DBY-1, a 
period (.) is placed for use as a delimiter, and, in FLGS-FILLED 
(the TALLYING item), the value (zero) is placed. The 
following data is then read into INV-RCD as shown in Figure 54. 
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Column 

1 10 



20 



30 



40 



50 



60 



f f t 

ZYFOUR-PENNY -NAILS 



u t t '' 

707890/BBA 475120 00122 000379.50 



Figure 54. UNSTRING Statement Example — Input Data 









When"~"ttte UNSTRING statement is executed, the following actions 
take place: 

1. Positions 3 through 18 (FOUR-PENNY-NAILS) of INV-RCD are 
placed in ITEM-NAME, left-justified within the area, and the 
unused character positions are padded with spaces. The 
value 16 is placed in CTR-1. 

2. Since ALL SPACES is specified as a delimiter, the 5 
contiguous SPACE characters are considered to be one 
occurrence of the delimiter. 

3. Positions 24 through 29 (707890) are placed in INV-NO. The 
delimiter character / is placed in DLTR-1, and the value 6 
is placed in CTR-2. 

4. Positions 31 through 33 are placed in INV-CLASS. The 
delimiter is a SPACE, but because no field has been defined 
as a receiving area for delimiters, the SPACE is merely 
bypassed. 

5. Positions 35 through 40 (475120) are examined, and are 
placed in M-UNITS. The delimiter is a SPACE, but because no 
receiving field has been defined as a receiving area for 
delimiters, the SPACE is bypassed. The value 6 is placed in 
CTR-3. 

6. Positions 42 through 46 (00122) are placed in FIELD-A, and 
right-justified within the area. The high-order digit 
position is filled with a (zero). The delimiter is a 
SPACE, but, because no field has been defined as a receiving 
area for delimiters, the SPACE is bypassed. 

7. Positions 48 through 53 (000379) are placed in DISPLAY-DOLS. 
The period (.) delimiter character is placed in DLTR-2, and 
the value 6 is placed in CTR-4. 

8. Because all receiving fields have been acted upon and two 
characters of data in INV-RCD have not been examined, the ON 
OVERFLOW exit is taken, and execution of the UNSTRING 
statement is completed. 

At the end of execution of the UNSTRING statement, DISPLAY-REC 
contains the following data* 



707890 FOUR-PENNY-NAILS 



000379 



WORK-REC contains the following data: 

475120000122BBA 

CHAR-CT (the POINTER field) contains the value 55, and 
FLDS-FILLED (the TALLYING field) contains the value 6. 
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Programming Notes 



One UNSTRING statement can be written instead of a series of 
MOVE statements. In communications applications^ this is 
especially useful in breaking apart incoming messages for 
internal processing. 

If the sending field is also the receiving field, part of the 
sending field may be overlaid by spaces (depending on the 
definition of the receiving field). The current delimited 
receiving field is filled with spaces. 



IBM Extension 



TRANSFORM STATEMENT 



The TRANSFORM statement is used to alter characters according to 
a transformation rule. 

Format 

TRANSFORM identifier-3 CHARACTERS 



I f igurati ve-constant-l I 

FROM < nonnumeric-li teral-1 > 

I identifiei — 1 I 



I f igurati ve-constant-2 I 

TO < nonnumeric-li teral-2 > 

I identifier-2 I 

t J 



Identifiei — 3 represents an elementary alphabetic, alphanumeric, 
or numeric edited item, or a group item. Identifiei — 3 may be an 
external decimal, provided that f i gurati ve-constant-1 is space 
or spaces and f igurati ve-constant-2 is valid. However, whenever 
identifier-3 is an external decimal, a warning message will be 
i ssued. 

The combination of the FROM and TO options determines the 
transformation rule. 

The following rules pertain to the operands of the FROM and TO 
options^ 

1. Nonnumeric literals require enclosing quotation marks. 

2. Identifiei — 1 and identifiei — 2 must be elementary alphabetic, 
or alphanumeric items, or fixed length group items not over 
255 characters in length. 

3. A character may not be repeated in nonnumeric-li teral-1 or 
in the area defined by i denti f i er-1 . If a character is 
repeated, the results are unpredictable. 

4. The allowable figurative constants are' ZERO, ZEROES, ZEROS, 
SPACE, SPACES, QUOTE, QUOTES, HIGH-VALUE, HIGH-VALUES, 
LOW-VALUE, and LOW-VALUES. 

When either i denti fi er-1 or identifier-2 appears as an operand 
of the specific transformation, the user can change the 
transformation rule at object time. 

Examples of data transformation are given in Figure 55; 
combinations of the FROM and TO options are shown in Figure 56. 

If any of the operands of a TRANSFORM statement share a part of 
their storage (that is, if the operands overlap), the result of 
the execution of such a statement is unpredictable. 
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Note: No matter uihich collating sequence is used by the 
program^ the TRANSFORM statement uses the EBCDIC collating 
sequence for comparisons. 



Programming Notes 









.^' 



/X"^ 



#¥ 



v^ 



x& 



V 



L 



r 



The TRANSFORM statement can be used to translate from one 
collating sequence to another. It can also be used to change a 
space-filled field to a zero-filled fields and vice versa. 



Identif1er-3 
- — tBefjire) 


FROM 


TO 


Identif1er-3 
(After) 


lb7bbABC "^^ 


SPACE 


QUOTE 


1*7"' ABC 


lb7bbABC 
lb7bbABC 
1234WXy89 


&A7CB'' 
bl7ABC 
98YXW4321 


'QRST' 
CBA71b 
ABCDEFGHI 


QbRbbATS 
BCACC71b 
IHGFEDCBA 



Figure 55. Examples of Data Transformation 
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Operands 


Transformation Rule 


FROM 

f i gu rati ve- cons tan t-1 

TO 

f i gurati ve-constant-2 


All characters in the data item represented by 
identifiej — 3 equal to the single character 
fi gurati ve-constant-1 are replaced by the single 
character fi gurati ve-constant-2 . 


FROM 

f i gurati ve-constant-1 

TO 

nonnumeri c-li teral-2 


All characters in the data item represented by 
identifier-3 equal to the single character 
fi gurati ve-constant-1 are replaced by the single 
character nonnumeri c-li teral-2. 


FROM 

f i gurati ve-constant-1 

TO identifier-2 


All characters in the data item represented by 
identifief — Z equal to the single character 
fi gurati ve-constant-1 are replaced by the 
identifiei — 2. 


FROM 

nonnumeri c-li teral-1 

TO 

f i gurati ve-constant-2 


All characters in the data item represented by 
identifiei — 3 that are equal to any character in 
nonnumeri c-li teral-1 are replaced by the single 
character fi gurati ve-constant-2. 


FROM 

nonnumeri c-li teral-1 

TO 

nonnumeri c-li teral-2 


Nonnumeri c-1 i teral-1 and nonnumeri c-li teral-2 must be 
equal in length or nonnumeri c-li teral-2 must be a 
single character. 

If the nonnumeri c-li terals are equal in length, any 
character in the data item represented by identifiei — 3 
equal to a character in nonnumeri c-li teral-1 is 
replaced by the character in the corresponding 
position of nonnumeric-li teral-2. 

If the length of nonnumeri c-1 i teral-2 is one, all 
characters in the data item represented by 
identifiei — 3 that are equal to any character appearing 
in nonnumeri c-1 i teral-1 are replaced by the single 
character given in nonnumeri c-1 i teral-2. 



Figure 56 (Part 1 of 2). TRANSFORM Statement — FROM and TO Options 
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Operands 


Transformation Rule 


FROM 

nonnumeric-li teral-1 

TO identifier-2 


Nonnumeri c-li teral-1 and the data item represented by 
identif ier-2 must be equal in length or identi fiei — 2 
must represent a single character item. 

If nonnumeri c-li teral-1 and identif ier-2 are equal in 
length, any character represented by identi fiei — 3 
equal to a character in nonnumeri c-li teral-1 is 
replaced by the character i n the corresponding 
position of the item represented by identif iei — 2. 

If the length of the data item represented by 
identif ier-2 is one, all characters represented by 
identi fiei — 3 that are equal to any character appearing 
in nonnumeri c-li teral-1 are replaced by the single 
character represented by identi f ier-2. 


FROM identifier-l 

TO 

f i gurati ve-constant-2 


All characters represented by identi fiei — 3 that are 
equal to any character in the data item represented by 
identifier-1 are replaced by the single character 
fi gurati ve-constant-2 . 


FROM identifier-1 

TO 

nonnumeri c-1 i teral-Z 


The data item represented by identifier-1 and 
nonnumeric-li teral-2 must be of equal length or 
nonnumeri c-li teral-2 must be one character. 

If identifiei — 1 and nonnumeric-li teral-2 bvb equal in 
length, any character in identifier-3 equal to a 
character in identifiei — 1 is replaced by the character 
in the corresponding position of nonnumeri c-1 i teral-2 . 

If the length of nonnumeric-li teral-2 is one, all 
characters represented by identifiei — 3 that &rG equal 
to any character represented by identifier-1 are 
replaced by the single character given in 
nonnumeri c-li teral-2 . 


FROM identifier-1 

TO 

identi f ier-2 


Any character in the data item represented by 
identifier-3 equal to a character in the data item 
represented by identifier-1 is replaced by the 
character in the corresponding position of the data 
item represented by identifiei — 2. Identifiei — 1 and 
identif ier-2 can be one or more characters, but must 
be equal in length. 



.J 






-^ 



Figure 56 (Part 2 of 2). TRANSFORM Statement— FROM and TO Options 



End of IBM Extension 
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PROCEDURE BRANCHING STATEMENTS 



GO TO STATEMENT 






statements^ sentences> and paragraphs in the Procedure Division 
arts ordinarily executed sequentially. The procedure branching 
statements (GO TO, ALTER, PERFORM, STOP, and EXIT) allow 
alterations in the sequence. 



The GO TO statement transfers control from one part of the 
Procedure Division to another. 

Format 1 

GO TO procedure-name-1 

Format 2 

GO TO procedure-name-1 [procedure-name-2] . . . 
procedure-name-n DEPENDING ON identifier 

Format 3 

GO TO. 

Each specified procedure-name must name a paragraph or a section 
in the Procedure Division. 

Identifier must name an elementary integer item. Its PICTURE 
must be of four digits or less. 



Format 1 — -Unconditional GO TO 



The GO TO statement causes control to be transferred to the 
first statement in the paragraph or section named in 
procedure-name-1, unless the GO TO statement has been modified 
by an ALTER statement. (See the following description of the 
ALTER statement.) 

A Format 1 GO TO statement, when it appears in a sequence of 
imperative statements, must be the last statement in the 
sequence. 

When a paragraph is referred to by an ALTER statement, the 
paragraph may consist only of a paragraph-name followed by a 
Format 1 or Format 3 GO TO statement. 



Format 2 — conditional GO TO 



o 



Control is transferred to one of a series of procedures, 
depending on the value of identifier. Ulhen identifier has a 
value of 1, control is transferred to the first statement in the 
procedure named by procedure-name-1; if it has a value of 2, 
control is transferred to the first statement in the procedure 
named by procedure-name-2; and so forth. 

If the value of the identifier is other than a value within the 
range 1 through n (where n is the number of procedure-names 
specified in this GO TO statement), no control transfer occurs; 
instead, control passes to the next statement in the normal 
sequence of execution. 

The number of procedure-names must not exceed 2031. 
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Format 3 — Altered GO TO 



An ALTER statement referring to this GO TO statement must have 
been executed before this GO TO statement is executed. Uihen 
this GO TO statement is executed^ control is transferred to the 
first statement of the paragraph named in the ALTER statement. 

A Format 3 GO TO statement can appear only in a single-statement 
paragraph. 

When a paragraph is referred to by an ALTER statement> the 
paragraph may consist only of the paragraph-name followed by a 
Format 1 or Format 3 GO TO statement. 



> 

y 



ALTER STATEMENT 



The ALTER statement changes the transfer point specified in a GO 
TO statement. 

Format 

ALTER procedure-name-1 

TO [ PROCEED TO ] procedure-name-2 
[procedure-name- 3 

TO [ PROCEED T0 3 procedure-name-4] ... 

Procedure-name-1 > procedure-name-3» and so forth* must each name 
a Procedure Division paragraph that contains only one sentence? 
a GO TO statement without the DEPENDING ON option. 

Procedure-name-2> procedure-name-4, etc., must each name a 
Procedure Division section or paragraph. 

ALTER statement execution modifies the GO TO statement in the 
paragraph named by procedure-name-1 > procedure-name-3> and so 
forth. Subsequent executions of the modified GO TO statementCs) 
cause control to be transferred to procedure-name-2, and (if 
specified) procedure-name-4, etc. For example*' 

PARAGRAPH-1. 

GO TO BYPASS-PARAGRAPH. 
PARAGRAPH-IA. 






BYPASS-PARAGRAPH. 



ALTER PARAGRAPH-1 TO PROCEED TO PARAGRAPH-2 



PARAGRAPH-2. 



Before the ALTER statement is executed, when control reaches 
PARAGRAPH-1, the GO TO statement transfers control to 
BYPASS-PARAGRAPH. After execution of the ALTER statement, 
however, the next time control reaches PARAGRAPH-1, the GO TO 
statement transfers control to PARAGRAPH-2. 



\-.V 
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Programming Notes 



The ALTER statement acts as a program switch* allouiing* for 
example* one sequence of execution during initialization and 
another sequence during the bulk of file processing. Because 
altered GO TO statements are difficult to debug* a tally should 
be kept to indicate when an ALTER statement has been executed. 



Segmentation information 



A GO TO statement in a section uihose priority is greater than or 
equal to 50 must not be referred to by an ALTER statement in a 
section with a different priority. All other uses of the ALTER 
statement are valid and are performed even if the GO TO to which 
the ALTER refers is in an overlayable fixed segment. 

Modified GO TO statements in independent segments may* in some 
cases* be returned to their initial states. 

(For further information* see the chapter on Segmentation.) 



PERFORM STATEMENT 



o 



THROUGH 




< > 


procedure~name-2 


1 THRU 

L L J 





The PERFORM statement transfers control explicitly to one or 
more procedures and implicitly returns control to the next 
executable statement after execution of the specified 
procedureCs) is completed. 

Format 1 

PERFORM procedure-name-1 

Format 2 

PERFORM procedure-name-1 

I identifier-1 | 

< > TIMES 

I integer-1 1 



f! 



THROUGH ] 
> 

THRU I 
J 



procedure-name-2 



Format 3 

PERFORM procedure-name-1 
UNTIL condition-1 



1 < 



L L 



THROUGH 
THRU 



procedure-name-2 



o 
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Format ^ 



I I THROUGH 1 

PERFORM procedure-name-l C j < > 

I I THRU I 
L L J 



procedure-name-2 



L,/ 



VARYING 



I identifier-1 | | literal-2 I 
< > FROM < identifier-2 > 

I index-name-1 | I index-name-2 I 



1 



I literal-3 

BY < > UNTIL condition-l] 

I i denti f i Gr-3 | 

r I i denti fier-4 j I literal-5 I 

I AFTER < > FROM < identifier-5 > 

^ I 1 ndex-name-4 I I index-name-5 | 

L J L J 

r litGral-6 1 

BY < > UNTIL condition-2] 

I i denti fiei — 6 j 

L J 

r I identifier-7 I I literaI-8 I 

AFTER < > FROM < i denti fier-8 > 

'• I index-name-? | | index-name-8 I 

L J L J 



I IiteraI-9 | 

lY < > UNTIL condition-3] 

I i denti fiei — 9 | 

L J 



H.> 



Each procedure-name must name a section or paragraph in the 
Procedure Division. 

When both procedure-name-l and procedure-namG-2 are specified^ 
if either is a procedure-name in a Declarative procedure* then 
both must be procedure-names in the same Declarative procedure. 

Each identifier must name a numeric elementary item. 

Each literal must be a numeric literal. 

Whenever a PERFORM statement is executed* control is transferred 
to the first statement of the procedure named procedure-name-l. 
Control is always returned to the statement following the 
PERFORM statement. The point from which this control is 
returned is determined as follows-* 

• If procedure-name-l is a paragraph name and procedure-namG-2 
is not specified* the return is made after the execution of 
the last statement of procedure-name-l. 

• If procedure-name-l is a section name and procedure-name-2 
is not specified, the return is made after the execution of 
the last sentence of the last paragraph in the 
procedure-name-l. 

• If procedure-name-2 is specified and it is a paragraph name, 
the return is made after the execution of the last statement 
of that paragraph. 

• If procedure-name-2 is specified and it is a section name* 
the return is made after the execution of the last sentence 
of the last paragraph in the section. 






198 IBM VS COBOL for OS/VS 



The only necessary relationship between procedure-name-1 and 
procedure-name-2 is that a consecutive sequence of operations is 
executed beginning at the procedure named by procedure-name-1 
and ending with the execution of the procedure named by 
procedure-name-2. A PERFORM statement must not cause the flow 
of control to pass through itself; that is, PERFORM A THRU A is 
not valid. 

GO TO and PERFORM statements may be specified within the 
performed procedure. If there are two or more logical paths to 
the return point, then procedure-name-2 may name a paragraph 
that consists only of an EXIT statement; all the paths to the 
return point must then lead to this paragraph. 

Ulhen a performed procedure includes another PERFORM statement, 
the sequence of procedures associated with the embedded PERFORM 
statement must be totally included in or totally excluded from 
the performed procedures of the first PERFORM statement. That 
is, an active PERFORM statement whose execution point begins 
within the range of performed procedures of another active 
PERFORM statement must not allow control to pass through the 
exit point of the other active PERFORM statement. In addition, 
two or more such active PERFORM statements must not have a 
common exit. 



IBM Extension 



However, this IBM implementation allows embedded PERFORM and GO 
TO statements to have a common exit point with the original 
PERFORM statement. The common exit point must be the name of a 
paragraph consisting solely of an EXIT statement. 



End of IBM Extension 



o 



Figure 57 illustrates valid sequences of execution for PERFORM 
statements. 



X PERFORM a THRU m 

a 



d PERFORM f THRU j 

f 

j 

m 



X PERFORM a THRU m 

a 

f 

m 



d PERFORM f THRU j 



X PERFORM a THRU m 
a 



d PERFORM f THRU j 
h 

m '• — 

f 

j >_ 



X 


PERFORM a THRU m 


a 






d 


PERFORM j THRU m 




f 






j 








m 


T? VTT' 











%J 



Figure 57. Valid PERFORM Statement Execution Sequences 
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When control passes to the sequence of procedures by means other 

than a PERFORM statement > control passes through the exit point jf \ 

to the next executable statetnent* as if no PERFORM statement ll j 

referred to these procedures. X..>^ 

The preceding rules refer to all 4 formats of the PERFORM 
statement. The following sections give rules applying to each 
individual format. 



Format 1 — Basic PERFORM 



Format I is the basic PERFORM statement. The procedure(s) 
referred to are executed once> and then control passes to the 
next executable statement following the PERFORM statement. 



Format 2— TIMES Option 



Format 2 uses the TIMES option. Identifier-1 must name an 
integer item. 

The procedure(s) referred to are executed the number of times 
specified by the value in identifier-1 or integei — 1. Control 
then passes to the next executable statement following the 
PERFORM statement. The following rules apply- 

1. If integei — 1 or identifiei — 1 is or a negative number at 
the time the PERFORM statement is initated, control passes 
to the statement following the PERFORM statement. 

2. After the PERFORM statement has been initiated, any 
reference to identifiei — 1 has no effect in varying the 
number of times the procedures are initiated. 



Format 3 — Conditional perform 



Format 3 uses the UNTIL option. The procedure(s) referred to 
are performed until the condition specified by the UNTIL option 
is true. Control is then passed to the next executable 
statement following the PERFORM statement. 

If the condition is true at the time the PERFORM statement is 
encountered, the specified procedure(s) are not executed. 

The condition may be any condition described in the chapter on 
Conditional Expressions. 



Format ^ — VARYING Option 



Format <* uses the VARYING option. This option increments or 
decrements one or more identifiers or index-names according to 
the following rules. Once the condition(s) specified in the 
UNTIL option are satisfied, control is passed to the next 
executable statement following the PERFORM statement. 

The condition may be any condition described in the chapter on 
Conditional Expressions. 

No matter how many variables are specified, the following rules 
apply: 

1. In the VARYING/AFTER options, when an index-name is 
speci f i ed: 

• The index-name is initialized and incremented or 
decremented according to the rules for the SET statement 
(see the chapter on Table Handling). 

• In the associated FROM option, an identifier must be \„/ 
described as an integer and have a positive value; a 
literal must be a positive integer. 
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♦ In the associated BY option^ an identifier must be 
described as an integer; a literal must be a nonzero 
i nteger. 

2. In the FROM option* Nhen an index-name is specif iedJ 

♦ In the associated VARYING/AFTER option, an identifier 
must be described as an integer. It is initialized as 
described in the SET statement. 

♦ In the associated BY option* an identifier must be 
described as an integer and have a nonzero value; a 
literal must be a nonzero integer. 

3. In the BY option* identifiers and literals must have nonzero 
values. 

4. Changing the values of identifiers and/or index-names in the 
VARYING, FROM* and BY options during execution changes the 
number of times the procedures are executed. 

The way in which operands are incremented or decremented depends 
on the number of specified variables. In the following 
discussion explaining this, every reference to identifier-n 
refers equally to index-name-n (except when identifiei — n is the 
object of the BY option). 

Varying one Identifier: The following actions take place: 

1. Identifiei — 1 is set equal to its starting value, 
identifiei — 2 or literal-2. 

2. Condition-1 is evaluated: 

a. If i t i s false* steps 3 through 5 (below) are executed. 

b. If it is true, control passes directly to the statement 
following the PERFORM statement. 

3. Procedure-1 through procedure-2 (if specified) are executed 
once. 

4. Identifiei — 1 is augmented by identifiei — 3 (or literal-3). 

5. Steps 2 through 4 are repeated until condition-1 is true. 

Figure 58 illustrates the logic of the PERFORM statement when 
one identifier is varied. 
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EXECUTION OF 
PERFORM STMT 
BEGINS 



SET 

IDENTIFIER-1 
EQUAL TO ITS 
FROM VALUE 



FALSE 



EXECUTE 
PROCEDURE- 1 
THRU 
PROCEDURE -2 



AUGMENT 
IDENTIFIER-1 
WITH ITS 
CURRENT 
BY VALUE 




TRUE 



EXIT 



) 






\^ 



Figure 58. Format 4 PERFORM Statement Logic— Vary i ng One 
Identifier 



Varying Two Identifiers: The following actions take place: 

1. Identifiei — 1 and identifier-4 are set to their initial 
values* identifiei — 2 (or literal-2) and identifier-5 (or 
iiteral-5)* respectively. 

2. Condition-1 is evaluated: 

a. If it is false* steps 3 through 7 (below) are executed. 

b. If it is true* control passes directly to the statement 
following the PERFORM statement. 

3. Condition-2 is evaluated: 

a. If it is false* steps 4 through 6 (below) are executed. 

b. If it is true* identifiei — 4 is set to the current value 
of identifier-5* and identifiei — 1 is augmented by 
identifiei — 3 (or literal-3)* and step 2 is repeated. 

4. ProGedure-1 through procedure-2 (if specified) are executed 
once. 

5. Identifiei — 4 is augmented by identifier-6 (or literal-6). 



o 
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6. Steps 3 through 5 (above) are repeated until condition-2 is 
true. 

7. Steps 2 through 6 (above) are repeated until condition-1 is 
true. 

At the end of PERFORM statement execution> identifiei — *t contains 
the current value of identifiei — 5. Identifiei — 1 has a value 
that exceeds the last used setting by the increment/decrement 
value (unless condition-1 was true at the beginning of PERFORM 
statement execution, in which case identifier-1 contains the 
current value of identifiei — 2). 

Figure 59 illustrates the logic of the PERFORM statement when 
two identifiers are varied. 



\^ 
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EXECUTION OF 
PERFORM STMT 
BEGINS 










IDENTIFIER-1 
IDENTIFIER-4 
SET TO INITIAL 
FROM VALUE 







AUGMENT 
IDENTIFIER-4 
WITH ITS 
CURRENT 
BY VALUE 



AUGMENT 
IDENTIFIER-1 
WITH ITS 
CURRENT 
BY VALUE 



Figure 59. Format 4 PERFORM Statement Logic — Varying Two 
Identifiers 



Varying Three identifiers* The actions &re the same as for two 
identifiers except that identifiei — 7 goes through the complete 
cycle each time that identifiei — 4 is augmented by identifier-6 
or literal-6» which in turn goes through a complete cycle each 
time identifier-1 is varied. 

At the end of PERFORM statement execution, identifier-4 and 
identifiei — 7 contain the current values of identifiei — 5 and 
identifiei — 8, respectively. Identifiei — 1 has a value exceeding 
its last used setting by one increment/decrement value (unless 
condition-1 was true at the beginning of PERFORM statement 
execution, in which case identifiei — 1 contains the current value 
of identifiei — 2). 



>, 
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Programming Notes 



Figure 60 illustrates the logic of the PERFORM statement when 
three identifiers are varied. 



In effects the performed procedures are in a closed subroutine 
that can be entered from many other points in the program. 

The Format 4 PERFORM statement is especially useful in Table 
Handling. One Format 4 PERFORM statement can serially search an 
entire 3-dimensi onal table. 



Segmentation Information 



A PERFORM statement appearing in a permanent segment can have in 
its range only one of the following^ 

1. Sections^ each of which has a priority number less than 50 

2. Sections and/or paragraphs wholly contained in a single 
independent segment. 

A PERFORM statement that appears in an independent segment can 
have in its range only one of the following^ 

1. Sections^ each of which has a priority number less th^n 50 

2. Sections and/or paragraphs wholly contained within the same 
independent segment as the PERFORM statement. 



IBM Extension 



However, this IBM implementation allows a PERFORM statement in 
any segment to have sections with any priority numbers within 
its range of procedures. 



End of IBM Extension 



Control is passed to the performed procedures only once for each 
execution of the PERFORM statement. 

Note: The rules for control transfers in performed procedures 
as previously implemented are given in Appendix A. 
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EXECUTION OF^ 
PERFORM STMT 
BEGINS 



X. 



y 



IDENTIFIER- 1 
IDENTIFIER-4 
IDENTIFIER-7 
SET TO INITIAL 
FROM VALUES 



FALSE 



EXECUTE 
PROCEDURE- 1 
THRU 
PROCEDURE- 2 



AUGMENT 
IDENTIFIER-7 
WITH ITS 
CURRENT 
BY VALUE 




TRUE 



EXIT 



TEST -s^ TRUE 
CONDITION-2 



TRUE 



SET 

IDENTIFIER-7 
TO ITS CURRENT 
FROM VALUE 



AUGMENT 
IDENTIFIER-4 
WITH ITS 
CURRENT 
BY VALUE 



) 



\-^ 



SET 

IDENTIFIER-4 
TO ITS CURRENT 
FROM VALUE 



AUGMENT 
IDENTIFIER- 1 
WITH ITS 
CURRENT 

BY VALUE 



Figure 60. Format 4 PERFORM Statement Logic — Varying Three 
Identifiers 
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EXIT STATEMENT 



The EXIT statement provides a common end point for a series of 
procedures. 

Format 

paragraph-name. EXIT [ PROGRAM ] . 

The EXIT statement must appear in a sentence by itself* and this 
sentence must be the only sentence in the paragraph. 

The EXIT statement enables the user to assign a procedure-name 
to a given point in a program. The EXIT statement has no other 
effect on the compilation or execution of the program. 

The EXIT PROGRAM statement is discussed in the chapter on 
Subprogram Linkage statements. 



Programming Notes 



The EXIT statemen 
series of procedu 
last paragraph in 
performed procedu 
will be transferr 
paragraph and the 
active, control i 
Procedure Divisio 
paragraph, which 
governed by an ac 
through the EXIT 
paragraph. 



t is useful for 
res. If an EXIT 

a Declarative p 
res, i t i dent i f i 
ed. When contro 

associated Decl 
s transferred to 
n. When control 
i s not the end o 
tive PERFORM or 
statement to the 



documenting the end point in a 

paragraph is written as the 
rocedure or a series of 
es the point at which control 
1 reaches such an exit 
arative or PERFORM statement is 

the appropriate part of the 

reaches such an EXIT 
f a range of procedures 
USE statement, control passes 

first statement of the next 



Unless an EXIT statement is written, the end of the sequence is 
difficult to determine unless the reader knows the logic of the 
program. 



STOP STATEMENT 



The STOP statement halts the object program either temporarily 
or permanently. 

Format 

[ RUN 1 

STOP < > 

I literal I 

L J 

The literal may be numeric or nonnumeric, and may be any 
figurative constant except the ALL literal. If the literal is 
numeric, it must be an unsigned integer. 



IBM Extension 



However, this IBM implementation also allows signed numeric 
integer and noninteger literals. 



End of IBM Extension 



When the STOP literal is specified, the literal is communicated 
to the operator, and object program execution is suspended. 
Program execution is resumed only after operator intervention, 
and continues at the next executable statement in sequence. 

When STOP RUN is specified, execution of the object program is 
terminated, and control is returned to the system. If a STOP 
RUN statement appears in a sequence of imperative statements, it 
must be the last or only statement in the sequence. All files 
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Programming Notes 



should be closed before a STOP RUN statement is executed. (See 
the chapter on System Dependencies.) 

For use of the STOP RUN statement in calling and called 
programs^ see the System Dependencies chapter. 



The STOP literal statement is useful for special situations (a 
special tape or disk must be mounted^ a specific daily code must 
be entered, and so forth). when operator intervention is needed 
during program execution. 



,f^ 



4 'x 
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COMPILER-DIRECTING STATEMENTS 



ENTER STATEMENT 



o 



Compilei — directing statements provide instructions to the COBOL 
compiler. The compiler-directing statements are COPY, ENTER, 
and USE. 

Only the ENTER statement is discussed in this chapter. The COPY 
statement is discussed in the Source Program Library chapter. 



I IBM Extension 



The Extended Source Program Library — the BASIS, INSERT, and 
DELETE statements — is discussed in the Source Program Library 
chapter. 



End of IBM Extension 



The USE statements are discussed in the chapters on Declaratives 
and the Debugging Features. 



IBM Extension 



The USE BEFORE REPORTING Declarative is discussed in the chapter 
on the Report Writer feature. 



End of IBM Extension 



The ENTER statement is intended to provide a means of allowing 
the use of more than one source language in the same source 
program. This compiler allocs no other source language in the 
source program. 

Format 

ENTER language-name trout i ne-name3 . 

The language-name is a system name that has no defined meaning 
in this IBM implementation. 

The language-name and routine-name must follow the rules for 
formation of a usei — defined word; at least one character must be 
alphabetic. 

The ENTER statement is accepted as documentation. 
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PART 5. SPECIAL FEATURES 



o 



• TABLE HANDLING 

• SORT/MERGE 

I IBM Extension 



• REPORT WRITER 

' End of IBM Extension 

• SEGMENTATION 

• SOURCE PROGRAM LIBRARY 

• SUBPROGRAM LINKAGE 

• DEBUGGING 
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TABLE HANDLING 



A tabls y as used in data processing/ is a collection of similar 
data items that is designed for easy retrieval of the group of 
related items as one unit* as well as of subgroups within the 
table. 

Every item belonging to the table has the same data description. 
The items in a table could be defined separately as consecutive 
entries in the Data Division* but this practice has 
disadvantages. First* the unity of the items is not apparent 
from the documentation; second* the Procedure Division becomes a 
snarl of complicated references* both for the programmer and for 
the compiler at object time. 

The table handling features of the COBOL language make it 
possible to refer to a large number of related items by one 
name. 



TABLE HANDLING CONCEPTS 



TABLE DEFINITION 



In COBOL* a table is defined with an OCCURS clause in its data 
description. The OCCURS clause specifies that the named item is 
to be repeated as many times as stated. The item so named is 
considered a table element * and its name and description apply 
to each repetition (or occurrence) of the item. Since the 
occurrences are not given unique data-names* reference to a 
particular occurrence can be made only by specifying the 
data-name of the table element* together with the occurrence 
number of the desired item within the element. 

The occurrence number is known as a subscri pt * and the technique f ^ 
of supplying the occurrence number of individual table elements W j 
is called subscri pti ng . A related technique* called indexi ng * 
is also available for table references. Both subscripting and 
indexing are described in the following sections. 



COBOL allows tables in one* two* or three dimensions. 

To define a one-dimensional table * the user writes an OCCURS 
clause as part of the definition of a table element. However* 
the OCCURS clause must not s^pxi^&r in the description of a group 
item that contains the table element. For example^ 

01 TABLE-ONE. 

05 ELEMENT-ONE OCCURS 3 TIMES. 
10 ELEMENT-A PIC X(4). 
10 ELEMENT-B PIC 9(^). 

TABLE-ONE is the group item that contains the table. 
ELEMENT-ONE names the table element of a one-dimensional table 
that occurs 3 times. ELEMENT-A and ELEMENT-B are elementary 
items subordinate to ELEMENT-ONE. 

To define a two-dimensional table * a one-dimensional table is 
defined within each occurrence of another one-dimensional table. 

For example: 

01 TABLE-TWO. 

05 ELEMENT-ONE OCCURS 3 TIMES. 

10 ELEMENT-TWO OCCURS 3 TIMES. 
15 ELEMENT-A PIC X(4). 
15 ELEMENT-B PIC 9(4). 
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ELEMENT-ONE is an element of a one-dimensional table that occurs 
3 times. ELEMENT-TWO is an element of a two-dimensional table 
that occurs 3 times within each occurrence of ELEMENT-ONE. 

To define a three-dimensional table » a one-dimensional table is 
defined within each occurrence of another one-dimensional table 
which is itself contained within each occurrence of another 
one-dimensional table. For example^ 

01 TABLE-THREE. 

05 ELEMENT-ONE OCCURS 3 TIMES. 

10 ELEMENT-TWO OCCURS 3 TIMES. 

15 ELEMENT-THREE OCCURS 2 TIMES 
PICTURE X(8). 

In this example^ ELEMENT-ONE is an element of a one-dimensional 
table that occurs 3 times. ELEMENT-TWO is an element of a 
two-dimensional table that occurs 3 times within each occurrence 
of ELEMENT-ONE. ELEMENT-THREE is an element of a 
three-dimensional table that occurs 2 times within each 
occurrence of ELEMENT-TWO. Figure 61 shows the storage layout 
for TABLE-THREE. 






^■Lijlr 
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Figure 61. Storage Layout for TABLE-THREE 
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TABLE REFERENCES 



Whenever the user refers to a table elements or to any item 
associated uith a table elements the reference must indicate 
which occurrence is intended. 

For a one-dimensional tables the occurrence number of the 
desired element gives the complete information. 

For tables of more than one dimension^ an occurrence number for 
each dimension must be supplied. In the three-dimenisi onal table 
defined above> for example/ a reference to ELEMENT-THREE must 
supply the occurrence number for ELEMENT-ONE» ELEMENT-TWO » and 
ELEMENT-THREE. Either subscripting or indexing^ described in 
the following paragraphs^ can be used to supply the necessary 
references. 
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Subscripting 
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Subscripti ng is a method of providing table references through 
the use of subscripts. A subscri pt is an integer value that 
specifies the occurrence number of a table element. 

Format 

I data-name-1 I I OF I 

< > C < > data-name-2] 

I condition-name I I IN I 

L J L J 

(subscript [subscript [subscript]]) 

Subscripts can be used only Mhen reference is made to an 
individual item uiithin a table element. 

Data-name-1 must be the name of a table elements and may be 
qualified^ if necessary. (Note that/ when qualification is 
used/ it is data-name-l* not data-name-2/ that is subscripted.) 

The subscript can be represented either by a literal or a 
data-name. 

A literal subscript must be an integer, and must have a value of 
1 or greater. The literal can have a positive sign or be 
unsigned. Negative subscript values are not permitted. For 
example, valid literal subscript references to TABLE-THREE arei 

ELEMENT-THREE (1, 2, 1) 

ELEMENT-THREE (2 2 1) 

A data-name subscript must be described as an elementary numeric 
integer data item. A data-name subscript may be qualified; it 
may not be subscripted or indexed. For example, valid data-name 
subscript references to TABLE-THREE — assuming that SUBl, SUB2, 
and SUB3 s^r^ all items subordinate to SUBSCRIPT-ITEM — are^ 

ELEMENT-THREE (SUBl SUB2 SUB3) 

ELEMENT-THREE IN TABLE-THREE (SUBl OF SUBSCRIPT-ITEM, SUB2 OF 

SUBSCRIPT-ITEM, 

SUB3 OF SUBSCRIPT-ITEM) 

The set of one to three subscripts must be written within a 
balanced pair of parentheses immediately following data-name-1 
or its last qualifier. One or more spaces may optionally 
precede the opening parenthesis. 

Uhen more than one subscript is specified, each subscript must 
be separated from the next by either a space or a comma followed 
by a space. (The comma is not required.) 

When more than one subscript is required, the subscripts are 
written in the order of successively less-inclusive data 
dimensions. (That is, in the-^table reference ELEMENT-THREE (3, 
2, 1), the first value (3) refers to the occurrence within 
ELEMENT-ONE, the second value (2) refers to the occurrence 
within ELEMENT-TWO, and the third value (1) refers to the 
occurrence within ELEMENT-THREE.) 

The lowest possible subscript value is 1, which points to the 
first occurrence within the table element. The next sequential 
elements are pointed to by subscripts with values 2, 3, and so 
forth. The highest permissible subscript value in any 
particular table element is the maximum number of occurrences 
specified in the OCCURS clause. (In the last example given* the 
highest possible subscript value for ELEMENT-ONE is 3, for 
ELEMENT-TWO is 3, and for ELEMENT-THREE is 2.) 
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Indexing is the method of providing table references through the 
use of indexes. An i ndex is a compiler-generated storage eiri&Si 
used to store table element occurrence numbers; the index 
contains a displacement value from the beginning of the table 
element that is equivalent to an occurrence number. 

Format 



(O^.. 
K-./ 



I data-name-1 I I OF I 

< > C < > data-name-2] .. 

I condition-name I i IN i 

L J L J 



I i n< 



r 1 1 

index-name-1 C < ± > literal-2J I 

( < L J > 

I literal-1 I 



I index-name-2 C < ± > literal-4] I 



C < 

I literal-3 



L J 



I index-name-3 C < ± > literal-6J 
C < «■ J > 3 3) 

I literal-5 i 



Each i ndex-name identifies an index to be used in table 
references. The index-name is specified through the OCCURS 
clause. The same index-name defined with one table can be used 
to index another table if both table descriptions &ri& identical J 
They must have the same number of levels^ the same number of 
occurrences/ as Mell as occurrences of the same length. 

Each index named is a compiler-generated storage Bir^&» 4 bytes 
in length; each index contains a binary value that represents an 
actual displacement from the beginning of the table element; to 
be valid, the displacement value must correspond to that of an 
occurrence number in the table element. Two forms of indexing 
SkV^ provided^ direct and relative. 

In direct indexing , the index-name is in the form of a 
subscript. The value contained in the index is then calculated 
as the occurrence number minus one> multiplied by the length of 
the individual table entry. For example: 

05 ELEMENT-A OCCURS 10 INDEXED BY INX-A PIC X(8). 

For the fifth occurrence of ELEMENT-A, the binary value 
contained in INX-A is (5 - 1) J< 8 = 32. 

In relative indexing , the index-name is followed by a space, 
followed by a + or a -, followed by another space, followed by 
an unsigned numeric literal. The literal is considered to be Sit\ 
occurrence number, and is converted to an index value before 
being added to or subtracted from the index-name. 



f"^'^\ 
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For example^ if indexing is specified for the table shoMn in th< 
previous table layout example for TABLE-THREE* as follows^ 

01 TABLE-THREE.. 

05 ELEMENT-ONE OCCURS 3 TIMES INDEXED BY INX-1. 
10 ELEMENT-TWO OCCURS 3 TIMES INDEXED BY INX-2. 
15 ELEMENT-THREE OCCURS 2 INDEXED BY INX-3 
PICTURE X(8). 

Then a relative indexing reference to 

ELEMENT-THREE (INX-1 + 1, INX-2 + 2, INX-3 -1) 

causes the following computation of the displacement* 

(address of ELEMENT-ONE) 
+ (contents of INX-1) + (48 x 1) 
+ (contents of INX-2) + (16 ^ 2) 
+ (contents of INX-3) -(8X1) 

(That is* each occurrence of ELEMENT-ONE is 48 characters in 
length; each occurrence of ELEMENT-TWO is 16 characters in 
length; and each occurrence of ELEMENT-THREE is 8 characters in 
length. ) 

To be valid during execution* an index value must correspond to 
a table element occurrence not less than one* nor greater than 
the highest permissible occurrence number. This restriction 
applies to both direct and relative indexing. 

An index-name must be initialized through a SET, PERFORM* or 
SEARCH ALL statement before it is used in a table reference. 

Further information on index-names is given in the description 
of the INDEXED BY option of the OCCURS clause, later in this 
chapter. 

One or more index references (direct or relative) may be 
specified together with literal subscripts. 



Restrictions on Subscripting and Indexing 



o 



1. A data-name must not be subscripted or indexed when it is 
being used as a subscript or qualifier. 

2. Indexing is not permitted where subscripting is not 
permitted. 

3. An index may be modified only by a PERFORM* SEARCH* or SET 
statement. 

4. When a literal is used in a subscript* it must be a positive 
or unsigned integer. 

5. When a literal is used in relative indexing* it must be an 
unsigned integer. 

6. For optimization of references to subscripted data-names* 
code is generated by the compiler to store the calculated 
address of a subscripted data-name in a SUBSCRIPT SAVE CELL. 
When the same subscripted reference to that data-name is 
used again* and no change to the subscript could have taken 
place between two references* the address of the subscripted 
data-name is not recalculated* but the saved address is used 
instead. It is possible that the subscript value may have 
changed whenever a new paragraph or section is encountered 
or whenever a verb is encountered that may transfer control 
outside the current paragraph* such as a PERFORM verb. Also* 
any direct alteration to the subscript variable* or a move 
to a group that contains the subscript will cause the 
subscripted address to be recalculated. However* altering 
the content of the subscript through indirect reference* 
such as changing the contents of an item that redefines the 
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subscript, is not recognized by the compiler, and will not 
cause the subscripted address to be recalculated. 

7. Subscripting and indexing must not be used together in a 
single reference. 

TABLE INITIALIZATION 

A table can contain static values or dynamic values. 

Static values remain the same through every execution of the 
object program. Uihen this is true, the initial values of table 
elements can be specified in Working-Storage in one of two ways* 

1. The table can be described as a record containing contiguous 
subordinate data description entries, each of which contains 
a VALUE clause for the initial value. The record is then 
redescribed through a REDEFINES entry that contains a 
subordinate entry with an OCCURS clause. Due to the OCCURS 
clause, the subordinate entries of the redefined entry are 
repeated. For example'* 

01 TABLE-ONE. 

05 ELEMENT-ONE PICTURE X VALUE "1". 

05 ELEMENT-TWO PICTURE X VALUE "2". 

05 ELEMENT-THREE PICTURE X VALUE "3". 

05 ELEMENT-FOUR PICTURE X VALUE "4". 
01 TABLE-TWO REDEFINES TABLE-ONE. 

05 OCCURS-ELEMENT OCCURS 4 TIMES PICTURE X. 

2. If the subordinate entries do not require separate handling, 
the VALUE of the entire entry can be given in the entry 
which names the table. The lower level entries then contain 
OCCURS clauses, and show the hierarchic structure of the 
table. The subordinate entries must not contain VALUE 
clauses. For example^ 

01 TABLE-ONE VALUE "1234". 

05 TABLE-TWO OCCURS 4 TIMES PICTURE X. 

Dynamic values may change during one execution of the object 
program, or from one execution to another. If the dynamic 
values are always the same at the beginning of object 
program execution, they can be initialized in the same 
manner as static values. If the initial values change from 
one execution to the next, then the table can be defined 
without initial values, and the changed values can be placed 
in the table before any table reference is made. 



Vy 
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TABLE HANDLING— DATA DIVISION 



OCCURS CLAUSE 



o 



COBOL Data Division clauses used for Table Handling are the 
OCCURS clause and the USAGE IS INDEX clause. 



The OCCURS clause eliminates the need for separate entries for 
repeated data items; it also supplies the information necessary 
for the use of subscripts or indexes. 

Format 1 — Fixed Length Tables 

OCCURS integer-2 TIMES 

[ ASCENDING 1 
[ < > KEY IS data-name-2 [data-name-3] ... ] 

I DESCENDING | 

L J 

[ INDEXED BY index-name-1 C i ndex-name-2] 3 

Format 2 — Variable Length Tables 

OCCURS integer-1 JO integer-2 TIMES 

DEPENDING ON data-name-1 

r ASCENDING 1 
C < > KEY IS data-name-2 Cdata-name-3] ... ] ... 

I DESCENDING | 

L J 

[INDEXED BY index-name-1 [ i ndex-name-2] ... 3 

The subject of an OCCURS clause is the data-name of the data 
item containing the OCCURS clause. Except for the OCCURS clause 
itself, data description clauses used with the subject apply to 
each occurrence of the described item. 

Uihenever it is used in any statement — other than SEARCH, or 
unless it is the object of a REDEFINES clause — the subject must 
be subscripted or indexed. Ulhen subscripted or indexed, the 
subject refers to one occurrence within the table element. 

Whenever it is used in a SEARCH statement, or when it is the 
object of a REDEFINES clause, the subject must not be 
subscripted or indexed. UJhen not subscripted or indexed, the 
subject represents the entire table element. 

A table element must not be greater than 32767 bytes in length. 

No table may be longer than 32767 bytes, except for fixed-length 
tables in the Working-Storage section or Linkage section, which 
may be as long as 131071 bytes. 

All data-names used in the OCCURS clause may be qualified; they 
may not be subscripted or indexed. 

All integers must be positive integers. 

The OCCURS clause cannot be specified in a data description 
entry that J 

• Has a level-01, level-66, level-77, or level-88 number. 

• Describes an item of variable size (an item is of variable 
size if any subordinate entry contains an OCCURS DEPENDING 
ON clause). 

• Describes a redefined data item. (However, a redefined item 
can be subordinate to an item containing an OCCURS clause.) 
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See REDEFINES Clause description in the Data Division 
chapter. 



Format 1 — Fixed Length Tables 



Uihen Format 1 is used^ integer-2 specifies the exact number of 
occurrences. 

Integer-2 must be greater than and less than 32768. 

Because three subscripts or indexes are allouied^ three nested 
levels of the Format 1 OCCURS clause are allowed. 



Format 2 — Variable Length Tables 



I IBM Extension 



Must not be an external-decimal Status Key data item. 
End of IBM Extension 



The value of the object of the OCCURS DEPENDING ON clause 
specifies that part of the table element available to the object 
program. (Items whose occurrence numbers exceed the value of 
the object are not available.) If, during execution, the value 
of the object is reduced, the contents of items whose occurrence 
numbers exceed the new value of the object are unpredictable. 

When a group item containing a subordinate OCCURS DEPENDING ON 
item is referred to, the current value of the object determines 
that part of the table area used in the operation. 

In one record description entry, any entry that contains an 
OCCURS DEPENDING ON clause may be followed only by items 
subordinate to i t . 

Note that the OCCURS DEPENDING ON clause cannot be specified as 
subordinate to another OCCURS clause. However, the Format 1 
OCCURS clause may be specified as subordinate to the OCCURS 
DEPENDING ON clause; in this case, a table of as many as three 
dimensions may be specified. 






Format 2 specifies the OCCURS DEPENDING ON clause; integer-1 
represents the minimum number of occurrences and integei — 2 
represents the maximum number of occurrences. The value of 
integer-1 must be 1 or greater; it must also be less than 
integei — 2. Integer-2 must be less than 32768. 

(Note that the length of the subject item is fixed; it is only 
the number of repetitions of the subject item that is variable.) 

Data-name-1 specifies the object of the OCCURS DEPENDING ON 
clause; that is, the data item whose current value represents 
the current number of occurrences of the subject item. The 
object of the OCCURS DEPENDING ON clause'- 

• Must be described as a positive integer. (That is, if 
data-name-1 is described as a signed item, then at execution 
time it must contain positive data.) 

• Must not occupy any storage position within the range of 

this table (that is, any storage position from the first /f ^ 
character position in this table through the last character u J 
position in this record description entry). ^w# 

• Must contain a value within the range of integer-1 and 
integer-2 inclusive. 
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ASCENDING/DESCENDING KEY Option — Formats 1 and 2 



%J 



The ASCENDING/DESCENDING KEY option specifies that the repeated 
data is arranged in ascending or descending order (depending on 
the key uiord specified) according to the values contained in 
data-name-2> data--name-3^ and so forth. The data-names are 
listed in their descending order of significance. 

The order is determined by the rules for comparison of operands 
(see the relation condition description in the Conditional 
Expressions chapter). The ASCENDING/DESCENDING KEY data items 
are used by the SEARCH ALL statement for a binary search of the 
table element. 

Data-name-2 must be the name of the subject entry> or the name 
of an entry subordinate to the subject entry. 

If data-name-2 names the subject entry, that entire entry 
becomes the ASCENDING/DESCENDING KEY, and is the only key that 
may be specified for this table element. 

If data-name-2 does not name the subject entry, then 
data-name-2, data-name-3, and so forth' 

• Must be subordinate to the subject of the table entry itself 

• Must not be subordinate to any other entry that contains an 
OCCURS clause 

• Must not themselves contain an OCCURS clause 

The following example illustrates the specification of 
ASCENDING/DESCENDING KEY data items: 

WORKING-STORAGE SECTION. 
01 TABLE-RECORD. 

05 EMPLOYEE-TABLE OCCURS 100 TIMES 

ASCENDING KEY IS WAGE-RATE EMPLOYEE-NO 
INDEXED BY A, B. 

10 EMPLOYEE-NAME PICX(20). 

10 EMPLOYEE-NO PIC 9(6). 

10 WAGE-RATE PIC 9999V99. 

10 WEEK-RECORD OCCURS 52 TIMES 

ASCENDING KEY IS WEEK-NO INDEXED BY C. 
15 WEEK-NO PIC 99. 

15 AUTHORIZED-ABSENCES PIC 9. 
15 UNAUTHORIZED-ABSENCES PIC 9. 
15 LATENESSES PIC 9. 

Note that the keys for EMPLOYEE-TABLE are subordinate to that 
entry; the key for WEEK-RECORD is subordinate to that 
subordinate entry. 

When the ASCENDING/DESCENDING KEY option is specified, the 
following rules apply- 

• Keys must be listed in decreasing order of significance. 

• The total number of keys for a given table element must not 
exceed 12. 

• The sum of the lengths of all the keys associated with one 
table element must not exceed 256. 

• A key may have DISPLAY or COMPUTATIONAL usage. 

I IBM Extension 1 



♦ A key may have COMPUTATIONAL-3 or COMPUTATIONAL-4 usage. 
• End of IBM Extension 



It is the programmer's responsibility to ensure that the 
data actually present in the table is arranged in 
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ASCENDING/DESCENDING sequence according to the collating 
sequence in use. 

of EMPLOYEE-NO within WAGE-RATE. Records in WEEK-RECORD must be 
arranged in ascending order of WEEK-NO. If they are not, SEARCH 
ALL statement results Mill be unpredictable.) 



INDEXED BY Option — Formats 1 and 2 



The INDEXED BY option specifies the indexes that can be used 
with this table element. The INDEXED BY option is required if 
indexing is used to refer to this table element. 



r — IBM Extension 



However, this IBM implementation allows a table without an 
INDEXED BY clause to be referred to through indexing. 



End of IBM Extension 



Each index-name must follow the rules for formation of a 
user-defined word; at least one character must be alphabetic. 

Each index-name specifies &n index to be created by the compiler 
for use by the program. These index-names are not data-names, 
and are not identified elsewhere in the COBOL program; instead, 
they can be regarded as private special registers for the use of 
this object program only. They are not data, or part of any 
data hierarchy; as such, each private special register must be 
uni que. 

In one table entry, up to 12 index-names may be specified. 

(More information is given in the Indexing paragraphs of the 
preceding Table Handling Concepts section.) 



USAGE IS INDEX CLAUSE 



The USAGE IS INDEX clause specifies that the data item named has 
an index format. Such an item is an index data item . 

Format 

[ USAGE IS] INDEX 

An index data item is a 4-byte elementary item (not necessarily 
connected with any table) that can be used to save index-name 
values for future reference. Through the SET statement, an 
index data item can be assigned an index-name value (that is, 
(occurrence-number - 1) ^ entry length); such a value equals the 
displacement for an occurrence number in a table. 

An index data item can be referred to directly only in a SEARCH 
statement, a SET statement, a relation condition, the USING 
option of the Procedure Division header, or the USING option of 
the CALL statement. 

I — IBM Extension \ 

An index data item can be referred to directly in the USING 
option of an ENTRY statement. 



End of IBM Extension 



,r' 






An index data item can be part of a group item referred to in a 
MOVE statement or an input/output statement. 

An index data item saves binary values equivalent to the table it^ '. 
occurrences, yet is not itself necessarily defined as part of 1l.j^ 
any table. Thus, when it is referred to directly in a SEARCH or 
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SET statements or indirectly in a MOVE or input/output 
statements there is no conversion of values when the statement 
is executed. 

The USAGE IS INDEX clause may be written at any level. If a 
group item is described Mith the USAGE IS INDEX clause^ it is 
the elementary items within the group that are index data items; 
the group itself is not an index data item^ and the group name 
cannot be used in SEARCH and SET statements or in relation 
conditions. The USAGE clause of an elementary item cannot 
contradict the USAGE clause of a group to which the item 
belongs. 

An index data item cannot be a conditional variable. 

The JUSTIFIED, PICTURE, BLANK WHEN ZERO, or VALUE clauses cannot 
be used to describe group or elementary items described with the 
USAGE IS INDEX clause. 

I IBM Extension 1 

However, this compiler allows the use of SYNCHRONIZED when USAGE 
IS INDEX to obtain efficient use of the index data item. 



End of IBM Extension 



TABLE HANDLING — PROCEDURE DIVISION 






conditions. 
RELATION CONDITIONS 



In the Procedure Division, the SEARCH and SET statements may be 
specified with indexed tables. There are also special rules 
involving Table Handling elements when they are used in relation 



Comparisons involving index-names and/or index data items 
conform to the following rules: 

• The comparison of two index-names is actually the comparison 
of the corresponding occurrence numbers. 

• In the comparison of an index-name with a data item (other 
than an index data item), or in the comparison of an 
index-name with a literal, the occurrence number that 
corresponds to the value of the index-name is compared with 
the data item or literal. 

• In the comparison of an index data item with an index-name 
or another index data item, the actual values are compared 
without conversion. Results of any other comparison 
involving an index data item are undefined. 

Figure 62 gives comparisons for index-names and index data 
items. 



o 
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Figure 62. Comparisons for Index-Names and Index Data Items 



SET STATEMENT 



The SET statement establishes reference points for table 
handling operations by placing values associated with table 
elements into indexes associated with index-names. 

Format 1 

I index-name-1 C i ndex-name-2] ... I j index-name-3 | 

SET < > IQ < identifier-3 > 

I identifiei — 1 Cidentifier-2] ... I I literal-1 I 

L J L J 

Format 2 

SET index-name-4 Cindex-name-5] ... 
\ OP BY 1 \ identifier-'i 1 



< > < 

f DOHN BY I I literal-2 
L J L 



/f X 



Format 1 — TO option 



Index-names are related to a given table through the INDEXED BY 
option of the OCCURS clause; they are not further defined in the 

Uhen the sending and receiving fields in a SET statement share 
part of their storage (that is/ the operands overlap) » the 
result of the execution of such a SET statement is undefined. 



When this form of the SET statement is executed^ the value of 
the sending field replaces (with or without conversion) the 
current value of the receiving field. 
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The receiving field may be specified as^ 

• Index-name-1 , i ndex-name-2, and so forth» or 

• Identifiei — 1, i denti f i er-2/ etc. — which must name either 
index data items or elementary numeric integer items. 

The sending field may be specified as' 

• Identifier-3 — uihich must name either an index data item or 
an elementary numeric integer item* or 

• Index-name-3 — whose value before the SET statement is 
executed must correspond to an occurrence number of its 
associated table* or 

• Literal-1 — which must be a positive integer. 

Figure 63 shows valid combinations of sending and receiving 
fields in a Format 1 SET statement. 

Execution of the Format 1 SET statement depends upon the type of 
receiving field* as follows- 

• Index-name Receiving Fields ( index-name-1 * i ndex-name-2* and 
so forth)* with one exception* are converted to a 
displacement value corresponding to the occurrence number 
indicated by the sending field. To be valid* the resulting 
index-name value must correspond to an occurrence number in 
its associated table element. The one exception to these 
rules \5' If the sending field is an index data item* the 
value in the index data item is placed in the index-name 
without change. 

• Index Data Item Receiving Fields ( i denti f i er-1 * 
identifiei — 2* etc.) are set equal to the contents of the 
sending field (which must be either an index-name or an 
index data item); no conversion takes place. A numeric 
integer or literal sending field must not be specified. 

• Integer Data Item Receiving Fields (identifiei — 1* 
identifiei — 2* and so forth) are set to an occurrence number 
that corresponds to the occurrence number associated with 
the sending field (which must be an index-name). An integer 
data item* an index data item* or a literal sending field 
must not be specified. 

Receiving fields are acted upon in the left-to-right order in 
which they are specified. Any subscripting or indexing 
associated with an identifier receiving field is evaluated 
immediately before the field is acted upon. 

The value used for the sending field is its value at the 
beginning of SET statement execution. 



Sending Field 



Index-name 
Index Data Item 
Integer Data Item 
Integer Literal 



Receiving Field 
Index-name Index Data item Integer Data Item 

Valid 



Valid 
ValidX 
Valid 
Valid 



Valid^ 
Valid 



>fNo conversion takes place 

Figure 63. Sending and Receiving Fields for Format 1 SET Statement 
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The value for an index-name after execution of a SEARCH or 
PERFORM statement may be undefined; therefore* a Format 1 SET 
statement should reinitialize such index-names before other 
table handling operations are attempted. 



r 



^■^y 



Format 2 — UP/DOMN BY option 



Ulhen this form of the SET statement is executed* the value of 
the receiving field is increased (UP BY) or decreased (DOUIN BY) 
a value that corresponds to the value in the sending field. 

The receiving field may be specified by i ndex-name-4* 
index-name-5, and so forth. These index-name values both before 
and after the SET statement execution must correspond to an 
occurrence number i n an associated table. 

The sending field may be specified as i dent i f i er-4» which must 
be an elementary integer data item* or as literal-2* which must 
be an integer. 

When the Format 2 SET statement is executed* the contents of the 
receiving field are increased (UP BY) or decreased (DOUIN BY) a 
value that corresponds to the number of occurrences represented 
by the value of identifiei — 4 or literal-2. Receiving fields are 
acted upon in the left-to-right order they are specified. The 
value of the sending field at the beginning of SET statement 
execution is used for all receiving fields. 



SEARCH STATEMENT 



The SEARCH statement searches a table for an element that 
satisfies the specified condition* and adjusts the associated 
index to indicate that element. 

Format 1 — Serial search 

I identifiei — 2 I 

SEARCH identifier-1 [ VARYING < > ] 

I index-name-1 j 

L J 

CAT END imperati ve-statement-13 

I imperati ve-statement-2 I 

UIHEN condition-1 < > 

I NEXT SENTENCE | 

L J 

I imperati ve-statement-3 | 

[WHEN condition-2 < > 3 ... 

I NEXT SENTENCE I 

L J 



^" 



K.y 



-.^^ 
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Format 2 — Binary Search 

SEARCH ALL identifier-1 

CAT END imperati ve-statement-1] 

I relati on-condi ti on-1 | 

WHEN < > 

I condi ti on-name-1 I 

L J 

I relati on-condi ti on-2 I 

[ AND < > ] . . . 

I condi ti on-name-2 J 

imperati ve-statement-2 I 

I 
NEXT SENTENCE I 

L J 

ThQ Data Division description of identifier-1 must contain an 
OCCURS clause with the INDEXED BY option. 

Ulhen specified in the SEARCH statements identifier-1 must refer 
to all occurrences uiithin the table element; that is» it must 
not be subscripted or indexed. 

Identifier-1 can be a data item subordinate to a data item that 
contains an OCCURS clause; that is, it can be a part of a two or 
three dimensional table. In this case, the data description 
entry must specify an INDEXED BY option for each dimension of 
the table. 

SEARCH statement execution modifies only the value in the 
index-name associated with identifiei — 1 (and, if present, of 
index-name-1 or identi f i er-2) . Therefore, to search an entire 
two or three dimensional table, it is necessary to execute a 
SEARCH statement for each dimension. Before each execution, SET 
statements must be executed to reinitialize the associated 
index-names. 

In the AT END and WHEN options, if any of the specified 
imperative-statements do not end with a GO TO statement, control 
passes to the next sentence after the imperative-statement is 
executed. 



Format 1 — Serial Search 



^L if 



Format 1 SEARCH statement execution causes a serial search to be 
executed, beginning at the current index setting. 

When the search begins, if the value of the index-name 
associated with identifier-1 is not greater than the highest 
possible occurrence number, the following actions take place: 

1. The condi tion(s) in the WHEN option are evaluated in the 
order they are written. 

2. If none of the conditions is satisfied, the index-name for 
identifiei — 1 is increased to correspond to the next table 
element, and step 1 is repeated. 

3. If, upon evaluation, one of the WHEN conditions is 
satisfied, the search terminates immediately, and the 
imperative-statement associated with that condition is 
executed. The index-name points to the table element that 
satisfied the condition. 
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4. If the end of the table is reached (that is» the increased 

index-name value is greater than the highest possible 4 — •%,^ 

occurrence number) without the WHEN condition being ff 

satisfied/ the search terminates as described in the next \...J^ 
paragraph. 

If, when the search begins, the value of the index-name 
associated with identifier-1 is greater than the highest 
possible occurrence number, the search immediately ends, and, if 
specified, the AT END imperative-statement is executed. If the 
AT END option is omitted, control passes to the next sentence. 

Each UIHEN option condition may be any condition as described in 
the chapter on Conditional Expressions. 

VARYING INDEX-NAME-l OPTION: When the VARYING index-name-1 
option is omitted, the first (or only) index-name for 
identifier-1 is used for the search. 

When the VARYING index-name-1 option is specified, one of the 
following actions applies: 

• If index-name-1 is an index for identifier-1, this index is 
used for the search. Otherwise, the first (or only) 
index-name is used. 

• If index-name-1 is an index for another table element, then 
the first (or only) index-name for identifier-1 is used for 
the search; the occurrence number represented by 
index-name-1 is increased by the same amount as the search 
index-name and at the same time. 

VARYING IDENTIFIER-2 OPTION: When this option is specified, the 
first (or only) index-name for identifier-1 is used for the 
search. 



Identifier-2 must be either an index data item or an elementary : 
integer item. During the search, one of the following actions 
applies: 

• If identifiei — 2 is an index data item, then, whenever the 
search index is increased, the specified index data item is 
simultaneously increased by the same amount. 

• If identifier-2 is an integer data item, then, whenever the 
search index is increased, the specified data item is 
simultaneously increased by 1 . 

Figure 64 i s a flowchart of a Format 1 SEARCH operation 
containing two WHEN options. 



/' 
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EXECUTION OF 
SEARCH BEGINS 



? 




GT 



AT END** 



IMPERATIVE- 
STATEMENT-1 



*** 



LT OR = 




TRUE WHEN CONDITION-1 



IMPERATIVE- 
STATEMENT-2 



*** 



FALSE 




** 



TRUE WHEN CONDITION -2 



IMPERATIVE- 
STATEMENT- 3 



*** 



FALSE 



INCREMENT 
INDEX -NAME FOR 
IDENTIFIER-1 
( INDEX-NAME -1 
IF APPLICABLE) 



** 

INCREMENT 
INDEX-NAME-1 
(FOR ANOTHER 

TABLE) OR 
IDENTIFIER-2. 



* INDEX SETTING EQUALS HIGHEST PERMISSIBLE 
OCCURRENCE NUMBER. 

** THESE OPERATIONS ARE INCLUDED ONLY WHEN 
CALLED FOR IN THE STATEMENT. 

*** EACH OF THESE CONTROL TRANSFERS IS 
TO THE NEXT SENTENCE UNLESS THE 
IMPERATIVE- STATEMENT ENDS WITH A 
GO TO STATEMENT. 



Figure 64. Format 1 SEARCH with Two WHEN Options 



Format 2 — Binary Search 



Format 2 SEARCH ALL statement execution causes a binary search 
to be executed. The search index need not be initialized by SET 
statements, because its setting is varied during the search 
operation so that its value i s at no time less than the value 
for the first table element, nor ever greater than the value for 
the last table element. The index used is always that 
associated with the first index-name specified in the OCCURS 
clause. 
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PROGRAMMING NOTES 



If the WHEN option cannot be satisfied for any setting of the 

index within this range, the search is unsuccessful. If the AT /> 

END option is specified, the AT END imperative-statement is (f 

executed. If the AT END option is not specified, control is V. -^ 

passed to the next sentence. In either case, the final setting 

of the index is not predictable. 

If the WHEN option can be satisfied, control passes to 
imperati ve-statement-2, and the index contains a value 
indicating an occurrence that allows the WHEN condition(s) to be 
sati sf i ed. 

WHEN CONDITION-NAME OPTION: if the WHEN condition-name option is 
specified, each specified condition-name must have only a single 
value, and each must be associated with an ASCENDING/DESCENDING 
KEY identifier for this table element. 

WHEN RELATION-CONDITION OPTION: if the WHEN relation-condition 
is specified, each relation-condition must take the following 
form: 

Format 

I IS EQUAL TO 1 [ identifier-2 1 

data-name < > < literal > 



IS = 



arithmetic-expression I 



The following considerations apply: 

• Data-name must specify an ASCENDING/DESCENDING KEY data item 
in the identifiei — 1 table element and must be indexed by the 
first identifiei — 1 index-name, along with other indexes or 
literals as required. Each data-name may be qualified. 

• Identifier-2 must not be an ASCENDING/DESCENDING KEY data ( ^ 
item for identifiei — 1 or an item that is indexed by the \_/ 
first index-name for identifiei — 1. 

• Ari thmeti c-expressi on may be any of those defined in the 
chapter on Arithmetic Expressions with the following 
restriction: Any identifier in the arithmetic-expression 
must not be an ASCENDING/DESCENDING KEY data item for 
identifiei — 1 or an item that is indexed by the first 
index-name for i denti f i er-1 . 

• When an ASCENDING/DESCENDING KEY data item is specified, 
explicitly or implicitly, in the WHEN option, then all 
preceding ASCENDING/DESCENDING KEY data-names for 
identifier-1 must also be specified. 

The results of a SEARCH ALL operation are predictable only when: 

• The data in the table is ordered in ASCENDING/DESCENDING KEY 
order, and 

• The contents of the ASCENDING/DESCENDING keys specified in 
the WHEN clause provide a unique table reference. 



Index data items cannot be used as subscripts or indexes, due to 
the restrictions on direct reference to them. 

The use of a direct indexing reference together with a relative 
indexing reference for the same index-name allows reference to 
two different occurrences of a table element for comparison 
purposes, and so forth. 



When the object of the VARYING option is an index-name for 
another table element, one Format 1 SEARCH statement steps 
through two table elements at once. (This is illustrated in the 



( 



J 
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INQUIRY-PRINT procedure of the TABLES sample program at the end 
of this chapter.) 

One Format 4 PERFORM statement can search an entire 
multidimensional table. 

To ensure correct execution of a PERFORM or SEARCH statement for 
a variable length table^ the programmer must make sure that the 
object of the OCCURS DEPENDING ON clause (data-name-1) contains 
a value that correctly specifies the current length of the 
table. 

I IBM Extension 1 

If indexing is used to search a table without an INDEXED BY 
clause^ correct results are ensured only if both the table 
defined with the index and the table defined without the index 
have table elements of the same length and with the same number 
of occurrences. 



End of IBM Extension 



TABLE HANDLING SAMPLE PROGRAM 






This program illustrates one method of building a tables as well 
as two methods of searching a table. 

A chain store doing business in the continental United States 
divides the country into seven sales areas. A weekly report of 
sales is made for each area. This program places these sales 
figures into a cumulative table> and then issues a report 
comparing sales by area for the current week with those for the 
preceding week> as well as for the same week in the preceding 
year. Optional inquiries can be made to report — for any week of 
the current year — which areas increased sales over last year. 

The following Table Handling features are illustrated^ the 
OCCURS clause, the OCCURS DEPENDING ON clause, the INDEXED BY 
option, direct indexing, relative indexing, the PERFORM UNTIL 
statement used to search a table element, the SEARCH VARYING 
STATEMENT used to search two table elements simultaneously, the 
SET TO statement, and the SET UP BY statement. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. TABLES. 
DATE-COMPILED. MAR 20,1981. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. 

CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT CURRENT-FILE 

ASSIGN TO SYS002-UT-2<^00-S-TAPEl. 
SELECT YR-TO-DATE-FILE 

ASSIGN TO SYS003-DA-3330-S-DISK1. 
SELECT LAST-YR-FILE 

ASSIGN TO SYS004-DA-3330-S-DISK2. 
SELECT PRINT-FILE 

ASSIGN TO SYSOOl-UR-1403-S-SYSLST. 
SELECT OPTIONAL INQUIRY-FILE 

ASSIGN TO SYS005-DA-3330-S-DISK3. 
DATA DIVISION. 
FILE SECTION. 

FD CURRENT-FILE LABEL RECORDS OMITTED. 
01 CURRENT-SALE-RECORD. 
05 CURR-WEEK PIC 99. 

05 CURR-FIGURES OCCURS 7 TIMES INDEXED BY WEEKC. 
10 CURR-AREA-NO PIC 9. 
10 CURR-AREA-SALE PIC S99999V99. 
FD YR-TO-DATE-FILE LABEL RECORDS STANDARD. 
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01 YR-TO-DATE-RECORD. 

05 YR-TO-DATE-TABLE OCCURS 52 TIMES INDEXED BY WEEKL. /^ 

10 FILLER PIC 99. i . 

10 FILLER OCCURS 7 TIMES INDEXED BY WEEKW. ^-- 

15 FILLER PIC 9. 
15 FILLER PIC S99999V99. 
FD LAST-YR-FILE LABEL RECORDS STANDARD. 
01 LAST-YR-RECORD. 

05 LAST-YR-WEEK-TABLE OCCURS 52 TIMES 
INDEXED BY WEEKY WEEKZ. 
10 LAST-YR-WEEK-NO PIC 99. 

10 LAST-YR-AREA-TOTALS OCCURS 7 TIMES INDEXED BY AREAY. 
15 LAST-YR-AREA-NO PIC 9. 
15 LAST-YR-AREA-FIGURES PIC S99999V99. 
FD PRINT-FILE LABEL RECORDS OMITTED. 
01 PRINT-RECORD. 

05 FILLER PIC X. 
05 PRINT-DATA PIC X(95). 
FD INQUIRY-FILE LABEL RECORDS OMITTED. 
01 INQUIRY-RECORD PIC 99. 
WORKING-STORAGE SECTION. 
77 THIS-WEEK PIC 99 COMP-3. 
77 LAST-WEEK PIC 99 COMP-3. 
77 ANY-INQ PIC 9 VALUE 0. 
77 INQ-COND-MET PIC 9. 

77 NO-INQ-MSG PIC X(21) VALUE " NO INQUIRY WAS MADE.". 
01 NONE-MET-COND. 

05 FILLER PIC X(17) VALUE " NO AREA IN WEEK ". 
05 COND-MSG-WK PIC Z9. 

05 FILLER PIC X(29) VALUE " EXCEEDED SALES OF LAST YEAR.". 
01 YTD-WORK-TABLE. 

05 WEEK-TABLE OCCURS 1 TO 52 TIMES 
DEPENDING ON THIS-WEEK 
INDEXED BY WEEKT WEEKX. 
10 WEEK-NO PIC 99. 

10 AREA-TOTALS OCCURS 7 TIMES /^ N 

INDEXED BY AREAT AREAX. L . 

15 AREA-NO PIC 9. ^-^ 

15 AREA-FIGURES PIC S99999V99. 
01 CURRENT-REPORT-PRINT. 

05 FILLER PIC X(IO) VALUE " WEEK NO.". 
05 PRINT-WEEK PIC Z9. 
05 PRINT-AREA VALUE " AREA ". 
10 FILLER PIC X(4). 
10 PRINT-AREA-NO PIC 9. 
10 FILLER PIC X(4). 
05 PRINT-AREA-FIGURES. 

10 FILLER PIC X(17) VALUE "THIS WEEK SALES ". 
10 PRINT-AREA-SALES PIC $$$,$$$.99. 
10 FILLER PIC X(5). 
05 PRINT-AREA-LAST-WEEK. 

10 FILLER PIC X(17) VALUE "LAST WEEK SALES ". 
10 LAST-WEEK-SALES PIC $$$,$$$.99. 
10 FILLER PIC XX. 
05 WEEK-PERCENT. 

10 FILLER PIC X(15) VALUE "% CHANGE ". 
10 WEEK-CHANGE PIC ++9.99. 
10 FILLER PIC XC5). 
05 PRINT-AREA-LAST-YEAR. 

10 FILLER PIC X(17) VALUE "LAST YEAR SALES ". 
10 LAST-YEAR-SALES PIC $$$,$$$.99. 
10 FILLER PIC XX. 
05 YEAR-PERCENT. 

10 FILLER PIC X(15) VALUE "% CHANGE ". 
10 YEAR-CHANGE PIC ++9.99. 
01 INQUIRY-PRINT-DATA. 

05 FILLER PIC X(6) VALUE " WEEK ". 

05 INQ-WK-NO PIC Z9. 

05 FILLER PIC X(6) VALUE " AREA ". 

05 INQ-AREA PIC 9. 

05 FILLER PIC X(17) VALUE " $ INCREASE ". 

05 INQUIRY-PRINT-FIGURE PIC $$,.99. \^' 
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01 LAST-WEEK-COMPARE. 
05 FILLER PIC 99. 
05 LW-AREA-TABLE OCCURS 7 TIMES INDEXED BY LWX. 

10 LW-AREA-NO PIC 9. 

10 LW-AREA-FIGURES PIC S99999V99. 
01 ERROR-MSG. 

05 FILLER PIC X. 

05 ERROR-WEEK-NO PIC Z9. 

05 ERROR-TEXT PIC X(40) VALUE 

"EXCEEDS THIS-WEEK NO. INQUIRY IGNORED.". 
PROCEDURE DIVISION. 
HOUSEKEEPING-ROUTINE. 

OPEN INPUT CURRENT-FILE LAST-YR-FILE INQUIRY-FILE, 

OUTPUT PRINT-FILE. 
READ LAST-YR-FILE AT END GO TO CLOSE-ROUTINE. 
READ CURRENT-FILE AT END GO TO CLOSE-ROUTINE. 
MOVE CURR-WEEK TO PRINT-WEEK. 
WRITE PRINT-RECORD FROM CURRENT-REPORT-PRINT 

AFTER POSITIONING 0. 
MOVE SPACES TO CURRENT-REPORT-PRINT. 
MOVE CURR-WEEK TO THIS-WEEK. 
SET WEEKT WEEKX WEEKY TO THIS-WEEK. 
IF THIS-WEEK EQUAL 1 GO TO FIRST-WEEK-ROUTINE. 
LATER-WEEK-ROUTINE. 

OPEN I-O YR-TO-DATE-FILE. 

COMPUTE LAST-WEEK = THIS-WEEK - 1. 

READ YR-TO-DATE-FILE INTO YTD-WORK-TABLE 

AT END GO TO CLOSE-ROUTINE. 
MOVE WEEK-TABLE (WEEKX - 1) TO LAST-WEEK-COMPARE. 
WEEK-CALCULATION-ROUTINE. 

MOVE CURRENT-SALE-RECORD TO WEEK-TABLE (WEEKT). 
SET LWX AREAT AREAY TO 1. 

PERFORM WEEK-PRINT THRU WEEK-PRINT-END 7 TIMES. 
WRITE-FILE-ROUTINE. 

REWRITE YR-TO-DATE-RECORD FROM YTD-WORK-TABLE. 
INQUIRY-FIND-ROUTINE. 

READ INQUIRY-FILE AT END GO TO CLOSE-ROUTINE. 

MOVE 1 TO ANY-INQ. 

IF INQUIRY-RECORD > THIS-WEEK MOVE INQUIRY-RECORD 

TO ERROR-WEEK-NO, 

WRITE PRINT-RECORD FROM ERROR-MSG AFTER POSITIONING 2, 

GO TO INQUIRY-FIND-ROUTINE. 
SET WEEKT WEEKY TO INQUIRY-RECORD. 
SET AREAT AREAY TO 1. 
MOVE INQUIRY-RECORD TO INQ-WK-NO. 
MOVE TO INQ-COND-MET. 
PERFORM INQUIRY-PRINT THRU INQUIRY-PRINT-END UNTIL 

AREAT = 8. 
IF INQ-COND-MET EQUAL 0, MOVE INQUIRY-RECORD TO COND-MSG-WK, 

WRITE PRINT-RECORD FROM NONE-MET-COND 

AFTER POSITIONING 2. 
GO TO INQUIRY-FIND-ROUTINE. 
CLOSE-ROUTINE. 

IF ANY-INQ EQUAL 0, WRITE PRINT-RECORD FROM NO-INQ-MSG 

AFTER POSITIONING 2. 
CLOSE CURRENT-FILE YR-TO-DATE-FILE LAST-YR-FILE 

INQUIRY-FILE PRINT-FILE. 
END-ROUTINE. 

STOP RUN. 
FIRST-WEEK-ROUTINE. 

OPEN OUTPUT YR-TO-DATE-FILE. 

SET WEEKZ TO 52. 

MOVE LAST-YR-WEEK-TABLE (WEEKZ) TO LAST-WEEK-COMPARE. 

PERFORM WEEK-CALCULATION-ROUTINE. 

WRITE YR-TO-DATE-RECORD FROM YTD-WORK-TABLE. 

GO TO INQUIRY-FIND-ROUTINE. 
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WEEK-PRINT. 

COMPUTE WEEK-CHANGE = (AREA-FIGURES (WEEKT AREAT) - 

LW-AREA-FIGURES (LWX)) / LW-AREA-FIGURES (LWX) X \^ 

100.00 
COMPUTE YEAR-CHANGE = (AREA-FIGURES (WEEKT AREAT) - 
LAST-YR-AREA-FIGURES (WEEKY AREAY)) / 
LAST-YR-AREA-FIGURES (WEEKY AREAY) X 100.00. 
MOVE AREA-NO (WEEKT AREAT) TO PRINT-AREA-NO. 
MOVE AREA-FIGURES (WEEKT AREAT) TO PRINT-AREA-SALES. 
MOVE LW-AREA-FIGURES (LWX) TO LAST-WEEK-SALES. 
MOVE LAST-YR-AREA-FIGURES (WEEKY AREAY) TO LAST-YEAR-SALES. 
WRITE PRINT-RECORD FROM CURRENT-REPORT-PRINT 

AFTER POSITIONING 1. 
SET LWX AREAT AREAY UP BY 1. 
WEEK-PRINT-END. EXIT. 
INQUIRY-PRINT. 

SEARCH AREA-TOTALS VARYING AREAY 

AT END SET AREAT TO 8 GO TO INQUIRY-PRINT-END 
WHEN AREA-FIGURES (WEEKT AREAT) > 

LAST-YR-AREA-FIGURES (WEEKY AREAY) 
MOVE 1 TO INQ-COND-MET, 
COMPUTE INQUIRY-PRINT-FIGURE = 
AREA-FIGURES (WEEKT AREAT) - 
LAST-YR-AREA-FIGURES (WEEKY AREAY). 
MOVE AREA-NO (WEEKT AREAT) TO INQ-AREA. 
WRITE PRINT-RECORD FROM INQUIRY-PRINT-DATA 

AFTER POSITIONING 2. 
SET AREAT AREAY UP BY 1. 
INQUIRY-PRINT-END. EXIT. 
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SORT/MERGE 



Arranging records in a particular order or sequence is a common 
requirement in data processing; such record ordering can be 
accomplished using sorting or merging operations. Uihile both 
operations accomplish record ordering, the functions and 
capabilities of a sort and a merge are different. 

A sort produces an ordered file from one or more files that may 
be completely unordered as to sort sequence. Thus, the sort 
operation must accept unordered sort input and produce ordered 
sort output. For this reason, all records must be available to 
the sort operation before sorting can begin. For this reason, 
too, there is aluiays an absolute limit to the number of records 
that can be processed in one sorting operation. 

A merge produces an ordered file from two or more input files, 
each of uihich is already ordered in the merge sequence. The 
merge operation is accomplished by record comparison as the 
records are encountered during the reading of all the input 
files. Only a portion of the records need be available to the 
merge operation at one time. Thus, many more records can be 
processed in one merge operation than in one sort. 

COBOL has special language features which assist in sort and 
merge operations so that the user need not program these 
operations in detail. This chapter discusses the special COBOL 
sort and merge language. 
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SORT/MERGE CONCEPTS 



Sorting and merging have always constituted a large percentage 
of the workload in business data processing. COBOL sort and 
merge language makes these operations easy to both specify and 
modify. COBOL language support is through the File-Contro' 
entry in the Environment Division, the SD 

(sort-merge-f i le-descripti on) entry in the Data Division, and 
the SORT and MERGE statements in the Procedure Division. 

The sort or merge file is described through the File-Control 
SELECT sentence, and the SD entry in the Data Division. The 
sort or merge file is the working file used during the sort or 
merge; it can be considered an internal file. As such, blocking 
and internal storage allocation for this file are not under the 
control of the COBOL programmer. However, a sort or merge file, 
like any file, is a set of records, and a sort-merge file 
description can be considered a particular type of file 
descri pti on. 

The sort-merge file is processed through a Procedure Division 
SORT or MERGE statement. The statement specifies the key 
field(s) within the record upon which the sort or merge is to be 
arranged. Keys can be specified as ascending or descending, or, 
when more than one key is specified, as a mixture of the two. 
The sequence of sorted or merged records conforms to the 
specified mixture of keys. 



SORT CONCEPTS 



Through the SORT statement, the COBOL user has access to input 
procedures (used before sorting) and output procedures (used 
after sorting) that can add, delete, alter, edit, or otherwise 
modify the records in the input and/or output files. Within the 
limits of virtual storage, a COBOL program can contain any 
number of sorts, each with its own independent input and/or 
output procedures. During SORT statement execution, these 
procedures are automatically executed at the specified point in 
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After all the input records have been placed in the sort file, 
the sorting operation is executed. This operation arranges the 
entire set of sort f i le records i n the sequence specified by the 
keyCs). 

After completion of the sorting operation, sorted records can be 
made available from the sort file, one at a time, through a 
RETURN statement for modification in an output procedure. If 
the user does not want to modify the sorted records, the SORT 
statement GIVING option names the sorted output file. 
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MERGE CONCEPTS 



Through the MERGE statement, the COBOL user has access to output 
procedures (used after merging) that can modify the records in 
the output file. The COBOL program can contain any number of 
merge operations, each with its own independent output 
procedures. During MERGE statement execution, these procedures 
are automatically executed at the specified point in processing. 

MERGE statement execution begins the merge processing. This 
operation compares keys within the records of the input files, 
and arranges the records within the merged file in the sequence 
specified by the key(s). 

Merged records can be made available, one at a time, through a 
RETURN statement for modification in an output procedure. If 
the user does not want to modify the merged records, the MERGE 
statement GIVING option names the merged output file. 

Note: For ASCII considerations, see Appendix B. 
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SORT/MERGE — ENVIRONMENT DIVISION 



In the Environment Division, the programmer must write 
File-Control entries for each file used as input to or output 
from a sort or merge operation. A File-Control entry for the 
sort-file or merge-file itself must also be written. 



IBM Extension 



1 



If checkpoint records are to be written during the operation, an 
I-0-Control entry containing a RERUN clause may also be 
specified. 



End of IBM Extension 



( 
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FILE-CONTROL ENTRY 



For the Input and output files of a sort or merge operation^ the 
File-Control entry for sequential files as described in the 
Environment Division chapter is valid. 

I IBM Extension 1 

HoMever^ this IBM implementation allouis the input and output 
files to be any file uiith sequential access^ and the 
File-Control entry for any sequentially accessed file is valid. 



End of IBM Extension 



For the sort or merge file, the following format shows the 
allowable clauses in the File-Control Entry. 

Format — Sort/Merge File 

SELECT file-name 

ASSIGN TO assi gnment-name-1 Cassi gnment-name-2] ... 

Each sort or merge file described in the Data Division must be 
named once, and only once, as a file-name in a File-Control 
entry. 

When file-name specifies a sort or a merge file, only the ASSIGN 
clause may follow the SELECT clause in this File-Control entry. 

The ASSIGN clause associates a sequential sort or merge file 
with a storage medium. 

Assignment-name has the same rules of formation as it has for 
other files. See the System Dependencies chapter for further 
i nf ormati on. 



I-0-CONTROL PARAGRAPH 



The I-0-CONTROL paragraph for a sort or merge file may be 
specified as shown in the following format. 

Format — Sort or Merge Files 



[ RERUN ON assignment-name] 



r RECORD 1 

[SAME < SORT > AREA 

I SORT-MERGE I 

L J 

FOR file-name-1 [f i le-name-2] ... ]. 



IBM Extension 



The order in which the I-0-CONTROL paragraph clauses are written 
is not significant. 



End of IBM Extension 
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RERUN Clause 



IBM Extension ■ j \,> 



Ulhen the RERUN cause is specified in the I-O control paragraph* 
checkpoint records are written at logical intervals determined 
by the sort/merge program during execution of each SORT or MERGE 
statement in the program. When it is omitted, checkpoint 
records are not written. 

Assignment-name must not be the same as any used in an ASSIGN 
clause, but must follow the same rules of formation. The System 
Dependencies chapter gives more information. 

Ulhen the checkpoint record is written, the status of all open 
files, whether involved in the sort/merge operation or not, is 
recorded. 



End of IBM Extension 



SAME SORT/SORT-MERGE AREA Clause 



The function of the SAME SORT AREA or SORT-MERGE AREA clause is 
to optimize storage area assignment to a given SORT or MERGE 
statement. The system handles storage assignment automatically; 
therefore, the SORT AREA or SORT-MERGE AREA options, when 
specified, are treated as documentation. 

The SAME SORT AREA or SORT-MERGE AREA clause specifies one 
storage area available for sort/merge operations by each named 
sort or merge file. That is, the storage allocated for one such 
operation is available for reuse in another. 

When the SAME SORT AREA or SAME SORT-MERGE AREA clause is ^ 

specified, at least one specified file-name must name a sort or ( ^ 
merge file. Files that Qnst not sort or merge files may also be \w^ 
specified. The following rules apply s 

• More than one SAME SORT AREA or SORT-MERGE AREA clause may 
be specified; however, a sort or merge file must not be 
named in more than one such clause. 

• If a file that is not a sort or merge file is named in both 
a SAME AREA clause and in one or more SAME SORT AREA or 
SORT-MERGE AREA clauses, all of the files in the SAME AREA 
clause must also appear in that SAME SORT AREA or SORT-MERGE 
AREA clause. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause 
need not have the same organization or access. 

• Files named in a SAME SORT AREA or SORT-MERGE AREA clause 
that are not sort or merge files do not share storage with 
each other unless the user names them in a SAME AREA or SAME 
RECORD AREA clause. 

Rules for the specification of SAME RECORD AREA clause are given 
in the Environment Division chapter. 



SORT/MERGE — DATA DIVISION 



In the File Section, the programmer must write an FD entry for 
each file that is input to or output from the sort/merge 
operation, and a record description entry. 

In addition, there must be an SD (sort-merge-f i le-descripti on) 
entry for each sort or merge file, as well as a record 
description, for each sort or merge file in the program. The SD 
entry has the following format. 



(J 
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Format — SD Entry 

SD file-name 

[ RECORD CONTAINS Cinteger-1 JO] i nteger-2 CHARACTERS! 

r RECORD IS 1 
[ DATA < > data-name-1 [data-naine-2 3 ... 3. 

I RECORDS ARE J 

The level indicator* SD, identifies the beginning of the SD 
entry, and must precede the file-name. 

The file-name must specify a sort or merge file. 

The clauses that folloM file-name are optional, and their order 
of appearance is not significant. 

Both the RECORD CONTAINS clause and the DATA RECORDS clause are 
described in the chapter on the Data Division. 

One or more record description entries must folloui the SD entry. 
Note, however, that no input/output statements may be executed 
for thi s f i le. 

See the System Dependencies chapter for further considerations. 

The following example illustrates the File Section entries 
needed for a sort or merge files 

SD SORT-FILE. 

01 SORT-RECORD PICTURE X(80). 



SORT/MERGE — PROCEDURE DIVISION 



The Procedure Division contains MERGE and SORT statements to 
describe the merge and sort operations and, optionally, sort 
input procedures and/or sort/merge output procedures. A sort 
input procedure must contain a RELEASE statement that makes each 
record available to the sorting operation. A sort/merge output 
procedure must contain a RETURN statement that makes a 
sorted/merged record available to the output procedure. 

The Procedure Division may contain more than one SORT and/or 
MERGE statements appearing anywhere except in the Declaratives 
portion, or in the sort input or sort/merge output procedures. 

Files specified in the USING and GIVING options of the SORT and 
MERGE statements must be described explicitly or implicitly in 
their File-Control entries as having sequential organization. 

I IBM Extension 1 

However, this IBM implementation also allows the input and 
output files to be any VSAM file with sequential access. 



End of IBM Extension 



Only one file-name from a multiple file reel can appear in a 
SORT or MERGE statement. 

Several SORT/MERGE statement options apply to both the SORT and 
the MERGE statements. These options are discussed after the 
descriptions of the MERGE and the SORT statements. 
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MERGE STATEMENT 



The MERGE statement combines two or more Identically sequenced 
files (that is, files that have already been sorted according to 
an identical set of ascending/descending keys) on one or more 
keys and makes records available in merged order to an ouput 
procedure or output file. 

Format 

MERGE file-name-1 



i 






\ ASCENDING ] 
ON < > KEY data-name-1 [data-name-2] 

I DESCENDING I 



r ASCENDING 1 

CON < > 

I DESCENDING | 

L J 



KEY data-name-3 Cdata-name-4] 



. 1 



[COLLATING SEQUENCE IS alphabet-name] 
USING file-name~2 file-name-3 Cf i le-name-43 



GIVING file-name~5 
OUTPUT PROCEDURE 



IS secti on-name-1 [ < 



I THROUGH T 

> 

THRU J 



secti on-name-23 I 

J 



File-name-1 is the name given in the SD entry which describes 
the record. The maximum number of files that can be merged is 
eight. 

No file-name may be repeated in the MERGE statement. 

bihen the MERGE statement is executed, all records contained on 
file-name-2, file-name-3» and so forth, are accepted by the 
sort/merge program and then merged according to the key(s) 
specified. These files must not be open when the MERGE 
statement is executed; they are automatically opened and closed 
by the MERGE operation, with all implicit functions (such as 
execution of any associated USE procedures) performed. The 
files are closed as if the CLOSE statement is written with no 
optional processing. 

Rules for the ASCENDING/DESCENDING KEY option, the COLLATING 
SEQUENCE option, the USING and GIVING options, and the 
sort/merge OUTPUT PROCEDURE option are given in the following 
section on SORT/MERGE Statement Options. 



V 






SORT STATEMENT 



The SORT statement accepts records from one or more files, sorts 
them according to specified key(s), and makes records available 
either through an output procedure or in an output file. 
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Format 

SORT file-name-1 

\ ASCENDING ] 
ON < > KEY data-name-1 Cdata-name-2] ,,. 

I DESCENDING I 



y 



r ASCENDING | 
[ON < > KEY data-name-3 Cdata-name-'j] ... ] ... 

I DESCENDING | 

L J 

[COLLATING SEQUENCE IS alphabet-name] 

I USING file-name-2 [f i le-name-33 ... I 

I INPUT PROCEDURE I 

< [ THROUGH I > 

I IS^ secti on-name-1 [ < > secti on~name-2 3 I 
I I THRU 1 

L L J J 



GIVING file-name-4 
OUTPUT PROCEDURE 



IS section-name-3 [ 



THROUGH 
THRU 



> section-name-^] j 



Fi le-name-1 
the records 



is the name given 
being sorted. 



in the SD entry which describes 



When the SORT statement is executed^ all records contained on 
file-name-2» file-name-3> and so forth» are accepted by the 
sort/merge program^ and then sorted according to the keyCs) 
specified. These input files must not be open at the time the 
SORT statement is executed; they are automatically opened and 
closed by the SORT operation, with all implicit functions (such 
as execution of any associated USE procedures) performed. The 
files are closed as if the CLOSE statement is written with no 
optional processing. 

Rules for the ASCENDING/DESCENDING KEY option, the COLLATING 
SEQUENCE option, the USING and GIVING options, the sort INPUT 
PROCEDURE option, and the sort/merge OUTPUT PROCEDURE option are 
given in the following section on~ SORT/MERGE Statement Options. 



SORT/HERGE STATEHENT OPTIONS 



The SORT/MERGE statement options are: the ASCENDING/DESCENDING 
KEY option, the COLLATING SEQUENCE option, the USING option, the 
GIVING option, and the OUTPUT PROCEDURE option. In addition, 
the SORT statement uses the INPUT PROCEDURE option. All are 
discussed in the following sections. 



ASCENDING/DESCENDING KEY Option 



This option specifies that records are to be processed in 
ascending or descending sequence (depending on the option 
specified) based on the specified sort/merge keys. 



an 



Each data-name specifies a KEY data item on which 
will be based. Each such data-name must identify 



the sort-merge 
a data item in 
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a record associated with f i le-name-1 . The following rules 
apply*' 



x 



• A specific KEY data item must be physically located in the % ,/ 
same position and have the same data format in each input 

file; however* it need not have the same data-name. 

• If fi le-name-1 has more than one record description* then 
the KEY data items need be described in only one of the 
record descriptions. 

• KEY data items must be fixed-length items. 

• KEY data items must not contain an OCCURS clause or be 
subordinate to an item that contains an OCCURS clause. 

• A maximum of 12 KEY data items may be specified. 

• The total length of all KEY data items must not exceed 256 
bytes. 

• All KEY data items must be located within the first ^092 
bytes of the record. 

• KEY data items may be qualified; they may not be subscripted 
or indexed. 

The KEY data items are listed in order of decreasing 
significance* no matter how they are divided into KEY phrases. 
Using the format as an example* data-name-1 is the most 
significant key and records are processed in ascending or 
descending order on that key; data-name-2 is the next most 
significant key and within data-name-1 records are processed on 
data-name-2 in ascending or descending order. Within 
data-name-2* records are processed on data-name-3 in ascending 
or descending order; within data-name-3* records are processed 
on data-name-^ in ascending or descending order. 



The direction of the sort/merge operation depends on the 
specification of the ASCENDING or DESCENDING key words as 
follows- 

• When ASCENDING is specified* the sequence is from the lowest 
key value to the highest key value. 

• When DESCENDING is specified* the sequence is from the 
highest key value to the lowest. 

• If the KEY data item is alphabetic* alphanumeric* 
alphanumeric edited* or numeric edited* the sequence of key 
values depends on the collating sequence used (see the 
following COLLATING SEQUENCE Option description). 

• The key comparisons are performed according to the rules for 
comparison of operands in a relation condition (see the 
Relation Condition description in the Conditional 
Expressions chapter). 



COLLATING SEQUENCE Option 



\4 _jj/ 



This option specifies the collating sequence to be used in 
nonnumeric compairisons for the KEY data items in this sort/merge 
operati on. 

Alphabet-name must be specified in the SPECIAL-NAMES paragraph* 
alphabet-name clause. Any one of the alphabet-name clause 
options may be specified* with the following results^ 

• When NATIVE is specified* the EBCDIC collating sequence is 

used for all nonnumeric comparisons. (The EBCDIC collating M"~\ 
sequence is given in Appendix G.) 



I 
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• When STANDARD-1 is specified, the ASCII collating sequence 
is used for all nonnumeric comparisons. (The ASCII 
collating sequence is given in Appendix G.) 

• When the literal option is specified, the collating sequence 
established by the specification of literals in the 
alphabet-name clause is used for all nonnumeric comparisons. 

When the COLLATING SEQUENCE option is omitted, the PROGRAM 
COLLATING SEQUENCE clause (if specified) in the OBJECT-COMPUTER 
paragraph specifies the collating sequence to be used. When 
both the COLLATING SEQUENCE option and the PROGRAM COLLATING 
SEQUENCE clause are omitted, the EBCDIC collating sequence is 
used. 



USING option 






When the USING option is specified, all the records on 
file-name-2, file-name-3, and so forth, (that is, the input 
files), are transferred automatically to file-name-1. At the 
time the SORT or MERGE statement is executed, these files must 
not be open; the compiler opens, reads, makes records available, 
and closes these files automatically. If EXCEPTION/ERROR 
procedures ar& specified for these files, the compiler makes the 
necessary linkage to these procedures. Up to eight files may be 
speci f i edi 

The input files must have sequential organization. 

I "^ IBM Extension 1 

Houiever, this IBM implementation also allows these files to be 
VSAM files with sequential access. 



End of IBM Extension 



All input files must be described in an FD entry in the Data 
Division, and their record descriptions must describe records of 
the same size as the record described for the sort or merge 
file. If the elementary items that make up these records are 
not identical, the user must describe the input records as 
having an equal number of character positions as the sort 
record. 



GIVING Option 



When the GIVING option is specified, all the sorted or merged 
records in file-name-1 are automatically transferred to the 
output file (MERGE file-name-5 or SORT f i le-name-4) . At the 
time the SORT or MERGE statement is executed, this file must not 
be open; the compiler opens, reads, makes records available, and 
closes the output file automatically. If EXCEPTION/ERROR 
procedures are specified for the output file, the compiler makes 
the necessary linkage to these procedures. 

The output file must have sequential organization. 

I IBM Extension \ 

However, this IBM implementation also allows this file to be a 
VSAM file with sequential access. 



End of IBM Extension 



The output file must be described in an FD entry in the Data 
Division, and its record descr i pti on( s) must describe records of 
the same size as the record described for the sort file. If the 
elementary items that make up these records are not identical, 
the user must describe the output record as having an equal 
number of character positions as the sort or merge record. 
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SORT INPUT PROCEDURE Option 



This option specifies the secti on-name( s) of a procedure that is 
to modify input records before the sorting operation begins. 

Secti on-name-1 specifies the first (or only) section in the 
input procedure. Section-name-2/ Mhen specified^ identifies the 
last section of the input procedure. 

The input procedure must consist of one or more sections that 
are written consecutively and do not form a part of any output 
procedure. The input procedure must include at least one 
RELEASE statement in order to transfer records to the sort-file. 

Control must not be passed to the input procedure except when a 
related SORT statement is being executed, because the RELEASE 
statement in the input procedure has no meaning unless it is 
controlled by a SORT statement. The input procedure can include 
any procedures needed to select, create, or modify records. 
There are three restrictions on the procedural statements within 
an input procedure^ 

1. The input procedure must not contain any SORT or MERGE 
statements. 

2. The input procedure must not contain any transfers of 
control to points outside the input procedure. The 
execution of a CALL statement to another program that 
follows standard linkage conventions, or the execution of 
USE declaratives are not considered transfers of control 
outside an input procedure. Because of this, they are 
allowed to be activated within these procedures. 



:0 



IBM Extension 



1 



However, the compiler permits the ALTER, GO TO, and PERFORM 
statements in the input procedure to refer to 
procedure-names outside the input procedure. However, it is 
the user's responsibility to ensure a return to the input 
procedure after exiting through a GO TO or a PERFORM 
statement. 



A..y 



End of IBM Extension 



3. The remainder of the Procedure Division must not contain any 
transfers of control to points inside the input procedure 
(with the exception of the return of control from a 
Declaratives Section). 

If an input procedure is specified, control is passed to the 
input procedure when the SORT program input phase is ready to 
receive the first record. The compiler inserts a return 
mechanism at the end of the last section of the input procedure 
and when control passes the last statement in the input 
procedure, the records that have been released to file-name-1 
are sorted. The RELEASE statement transfers records from the 
Input Procedure to the sort file, which is then used in the 
input phase of the sort operation (see "RELEASE Statement"). 



SORT/MERGE OUTPUT PROCEDURE Option 



This option specifies the secti on-name( s) of a procedure that is 
to modify output records from the sort or merge operation. 

Sect i on-name-1 specifies the first (or only) section in the 
output procedure. Sect i on-name-2, when specified, identifies 
the last section of the output procedure. 

The output procedure must consist of one or more sections that 
are written consecutively and do not form a part of any input 
procedure. The output procedure must include at least one 
RETURN statement in order to make sorted/merged records 
available for processing. 
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Uhen all the records are sorted/merged, control is passed to the 
output procedure. The RETURN statement in the output procedure 
is a request for the next record (see "RETURN Statement"). 

Control must not be passed to the output procedure except uihen a 
related SORT or MERGE statement is being executed* because 
RETURN statements in the output procedure have no meaning unless 
they are controlled by a SORT or MERGE statement. The output 
procedure may consist of any procedures needed to select* 
modify* or copy the records that are being returned one at a 
time* from the sort- or merge-file. 

There are three restrictions on the procedural statements within 
the output procedure. 

1. The output procedure must not contain any SORT or MERGE 
statements. 

2. The output procedure must not contain any transfers of 
control to points outside the output procedure. The 
execution of a CALL statement to another program that 
follows standard linkage conventions* or the execution of 
USE declaratives is not considered a transfer of control 
outside an output procedure. Because of this* they are 
allowed to be activated within these procedures. 



IBM Extension 



However* the compiler permits the ALTER* GO TO* and PERFORM 
statements in the output procedure to refer to 
procedure-names outside the output procedure. However* it 
is the user's responsibility to ensure a return to the 
output procedure after exiting through a GO TO or a PERFORM 
statement. 



End of IBM Extension 



The remainder of the Procedure Division must not contain any 

transfers of control to points inside the procedure (with 

the exception of the return of control from a Declaratives 
Section). 



Uihen an output procedure is specified* control passes to it 
after the sort/merge file (f i le-name-1) has been placed in 
sequence by the sort/merge operation. The compiler inserts a 
return mechanism at the end of the last section in the output 
procedure; when control passes the last statement in the output 
procedure* the return mechanism terminates the sort or merge* 
and passes control to the next executable statement after the 
SORT or MERGE statement. 



INPUT/OUTPUT PROCEDURE Control 



The INPUT or OUTPUT PROCEDURE options function in a manner 
similar to Option 1 of the PERFORM statement (the simple 
PERFORM). For example* naming a section in an OUTPUT PROCEDURE 
option causes execution of that section during the sort/merge 
operation to proceed as if that section were named in a PERFORM 
statement. As with the PERFORM statement* execution of the 
section is terminated after execution of its last statement. 
The last statement in Input and Output Procedures can be the 
EXIT statement (see "EXIT Statement"); this is useful for 
documentation purposes. 



RELEASE STATEHENT (SORT STATEMENT ONLY) 



The RELEASE statement transfers records from an input/output 
area to the initial phase of a sort operation. 



Format 

RELEASE record-name 



[FROM identifier] 



Sort/Merge 2^5 



RETURN STATEMENT 



The RELEASE statement may be specified only within an Input 
Procedure associated with a SORT statement. Within an Input 
Procedure at least one RELEASE statement must be specified. 

When the RELEASE statement is executed* the current contents of 
record-name are placed in the sort file; that \s, made available 
to the initial phase of the sort operation. 

Record-name must specify a record associated with the SD entry 
for file-name-i. Record-name may be qualified. 

When the FROM identifier option is specified, the RELEASE 
statement is equivalent to the statement MOVE identifier to 
record-name, followed by the statement RELEASE record-name. 
Moving takes place according to the rules for the MOVE statement 
without the CORRESPONDING option. 

Identifier and record-name must not refer to the same storage 
area. 

After the RELEASE statement is executed, the information in 
record-name is no longer available, unless file-name-1 is 
specified in a SAME RECORD AREA clause, in which case 
record-name is still available as a record of the other files 
named in that clause. When the FROM identifier option is 
specified, the information is still available in identifier. 

When control passes from the Input Procedure, the sort file 
consists of all those records placed in it by execution of 
RELEASE statements. 



The RETURN statement transfers records from the final phase of a 
sort or merge operation to an input/output area. 

Format 

RETURN file-name RECORD [INTO identifier] 



,^' "■■>^. 



'\,:,y 



AT END imperative-statement 

The RETURN statement may be specified only within an Output 
Procedure associated with a SORT or MERGE statement. Within an 
Output Procedure at least one RETURN statement must be 
specified. 

When the RETURN statement is executed, the next record from 
file-name is made available for processing by the Output 
Procedure. 

File-name must be described in a Data Division SD entry. 

If more than one record description is associated with 
file-name, these records automatically share the same storage; 
that is, the area is implicitly redefined. After RETURN 
statement execution, only the contents of the current record are 
available; if any data items lie beyond the length of the 
current record, their contents are undefined. 

When the INTO identifier option is specified, the RETURN 
statement is equivalent to the statement RETURN file-name, 
followed by the statement MOVE record-name TO identifier. 
Moving takes place according to the rules for the MOVE statement 
without the CORRESPONDING option. Any subscripting or indexing 
associated with identifier is evaluated after the record has 
been returned and immediately before it is moved to identifier. 

The INTO identifier option must not be specified if the sort or 
merge file contains records of varying sizes. 

The record areas associated with file-name and identifier must 
not be the same storage area. 
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After all records have been returned from file-name, the AT END 
imperative-statement is executed, and no more RETURN statements 
may be executed. 



I IBM Extension 



SORT/MERGE SPECIAL REGISTERS 



SORT-RETURN 



Four special registers are available to Sort/Merge Feature 
users. These special registers provide object-time 
communication betueen the user and the Sort/Merge program; they 
aid performance optimization. 



SORT-RETURN is available to both Sort and Merge programs. 

SORT-RETURN is the name of a binary data item whose PICTURE is 
S9(4). It contains a return code of or 16 at the completion 
of a sorting operation to signify the success or failure, 
respectively, of the sort operation. If the sort operation 
abnormally terminates and there is no reference to this special 
register anywhere in the program, a message is displayed on the 
console. Then, the operator may continue or cancel the job. 

SORT-RETURN must not be specified as an operand in the ACCEPT or 
DISPLAY statements. 

(See also the chapter on System Dependencies.) 



SORT-FILE-SIZE, SORT-MODE-SIZE, SORT-CORE-SIZE 



SORT-FILE-SIZE, SORT-MODE-SIZE, and SORT-CORE-SIZE are available 
only to the Sort operation. These registers can have control 
information transferred into them at object time as the 
receiving field of statements such as MOVE. (They must not be 
operands in an ACCEPT or DISPLAY statement.) The control 
information must be transferred before the SORT statement is 
executed. 

These registers are initialized to by the compiler, but are 
not reset after a sort operation is completed. Thus, in a 
program with more than one SORT statement, any values in these 
registers at the end of one sorting operation will still be 
present at the beginning of the next, unless they are modified 
by the programmer. 

SORT-FILE-SIZE is the name of a binary data item whose PICTURE 
is S9(8). It is used for the estimated number of records in the 
file to be sorted. If SORT-FILE-SIZE is omitted, the Sort 
Feature assumes that the file contains the maximum number of 
records that can be processed with the available storage size 
and number of work units. If the estimate exceeds the maximum, 
the estimate will be ignored. 

SORT-MODE-SIZE is the name of a binary data item whose PICTURE 
is S9(5). It is used for variable-length records. If the 
length of most records in the file is significantly different 
from the average record length, performance is improved by 
specifying the most frequently occurring record length. If 
SORT-MODE-SIZE is omitted, the average of the maximum and 
minimum record lengths is assumed. For example, if records vary 
in length from 20 to 100 bytes, but most records are 30 bytes 
long, the value 30 should be moved to SORT-MODE-SIZE. 
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PROGRAMMING NOTES 



SORT-CORE-SIZE is the name of a binary data item whose PICTURE 

is S9(8). It is used to specify the number of bytes of storage #"^ 

available to the sorting operation if it is different from the 1 

storage size that the Sort Feature Mould normally use. \-:^-J^^ 

See also the chapter on System Dependencies. 

' End of IBM Extension ' 



Extreme caution should be used uihen sorting variable-length 
records with embedded objects of the OCCURS DEPENDING ON clause. 
The following considerations applyJ 

1. The USING and GIVING options, since they preclude presetting 
of the OCCURS DEPENDING ON object in the receiving record, 
will probably lead to incorrect results. 

2. Therefore, Input and Output Procedures should be specified. 

In the Input Procedure, before the RELEASE statement is 
executed, the user should move the OCCURS DEPENDING ON 
object to the sort file record; this presets the sort file 
record length. The RELEASE statement can then be correctly 
executed. 

In the Output Procedure, the RETURN statement must not use 
the INTO option. After the RETURN statement is executed, 
and before any processing operation, such as a WRITE 
statement, is issued, the object of the OCCURS DEPENDING ON 
clause should be moved to the proper receiving field; this 
presets the receiving record length before the processing 
operation takes place. 

The limit on the number of records that can be processed in one r ^ 
sort operation is dependent on the amount of storage available \s./ 
and the size and number of the sort work files. 



IBM Extension 



The sort special registers are especially useful in optimizing a 

sorting operation to the specific number or size of records 

expected to be processed during one execution of the program, 

because values can be changed from one execution to the next. 



End of IBM Extension 



If extremely large files must be ordered, the program can be 
written to sort segments of the file into several sorted files, 
and then merge the sorted files into one output file. 



I IBM Extension 



The RERUN statement is especially useful when sort/merge 
programs that order extremely large files are written. If for 
any reason the program must be interrupted, the RERUN clause 
allows the sort or merge to be restarted at the last checkpoint. 



End of IBM Extension 



SORT/MERGE SAMPLE PROGRAM 



This program provides a sorted record, for the current month, of 
net sales within each on-site department of a manufacturing 
company. It also provides a year-to-date sorted record of net 
sales by all employees (on-site and off-site) for the current 
year. 

The records for the current month are read in unsorted order. 



\J 
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Firsts the SORT statement for the current-month report is 
executed. The INPUT PROCEDURE for this sorting operation is 
SCREEN-DEPT SECTION, which removes the records for employees in 
departments 7 and 9 (off-site employees) before releasing the 
records for the sorting operation. Records for all on-site 
employees are then released to the first sorting operation. The 
records are then sorted in ascending order of department* and, 
within each department, in descending order of net sales. The 
output for this sort is then printed. 

Next, the yearly report is updated. In this report, off-site 
employees are included (that is, the USING option of the SORT 
statement is specified, not the INPUT PROCEDURE option). For 
the yearly report, the current month's records are sorted in 
ascending order of department, and, within each department, in 
ascending order of employee number. 

After the second sorting operation is completed, the current 
month's records are merged with the existing year-to-date 
records. The records in this file are merged in ascending order 
of department number, and, within each department, in ascending 
order of employee numbers, and, for each employee, in ascending 
order of months. 






o 



Uihen the MERGE statement execution is complete, an updated 
yeai — to-date master file has been created. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. SORT-IT. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370-163. 
OBJECT-COMPUTER. IBM-370-163. 
SPECIAL-NAMES. SYSLST IS PRINTER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT NET-FILE-IN ASSIGN TO SYS002-DA-3330-S-SORTIN . 

SELECT NET-FILE-OUT ASSIGN TO SYS003-DA-3330-S-SORTOUT. 

SELECT NET-FILE-WORK ASSIGN TO SYSOOl-DA-3330-S-SORTWKl . 

SELECT YTD-NET-FILE-IN ASSIGN TO SYS002-DA-3330-S-SORTIN 

SELECT YTD-NET-FILE-MASTER 

ASSIGN TO SYS004-DA-3330-S-YTDMSTR. 
DATA DIVISION. 
FILE SECTION. 
SD NET-FILE-WORK 

DATA RECORD IS SALES-RECORD. 

SALES-RECORD. 



01 



FD 



01 



FD 



01 



FD 



05 
05 
05 
05 
05 



EMPL-NO 

DEPT 

NET-SALES 

NAME-ADDR 

MONTH 
NET-FILE-IN 

LABEL RECORDS ARE STANDARD 
DATA RECORD IS NET-CARD-IN, 
NET-CARD-IN. 
05 EMPL-NO-IN 

DEPT-IN 



05 



PICTURE 9(6). 
PICTURE 9(2). 
PICTURE 9(7)V99 
PICTURE X(61). 
PICTURE X(2). 



PICTURE 9(6). 
PICTURE 9(2). 



88 OFF-SITE-LOCATION VALUES ARE 7, 9. 



05 NET-SALES-IN 

05 NAME-ADDR-IN 

05 MONTH-IN 

NET-FILE-OUT 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS NET-CARD-OUT 

NET-CARD-OUT. 

05 EMPL-NO-OUT 

05 DEPT-OUT 

05 NET-SALES-OUT 

05 NAME-ADDR-OUT 

05 MONTH-OUT 

YTD-NET-FILE-IN 

LABEL RECORDS ARE STANDARD 



PICTURE 9(7)V99. 
PICTURE X(61). 
PICTURE X(2). 



PICTURE 9(6). 
PICTURE 9(2). 
PICTURE 9(7)V99. 
PICTURE X(61). 
PICTURE X(2). 
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DATA RECORD IS YTD-NET-CARD-IN. 
01 YTD-NET-CARD-IN, ^—. 

05 YTD-EMPL-NO PICTURE 9(6). ^ 

05 YTD-DEPT PICTURE 9C2). \ . 

05 YTD-NET-SALES PICTURE 9(7)V99. 

05 YTD-NAME-ADDR PICTURE X(61). 

05 YTD-MONTH PICTURE X(2). 

FD YTD-NET-FILE-MASTER 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS YTD-NET-CARD-MASTER. 
01 YTD-NET-CARD-MASTER. 

05 EMPL-NO-MASTER PICTURE 9(6). 

05 DEPT-MASTER-MASTER PICTURE 9(2). 

05 NET-SALES-MASTER-MASTER PICTURE 9(7)V99. 

05 NAME-ADDR-MASTER-MASTER PICTURE X(61). 

05 MONTH-MASTER-MASTER PICTURE X(2). 
PROCEDURE DIVISION. 
ELIM-DEPT-OFF-SITE-NO-PRINTOUT. 

SORT NET-FILE-WORK 

ASCENDING KEY DEPT 
DESCENDING KEY NET-SALES 
INPUT PROCEDURE SCREEN-DEPT 
GIVING NET-FILE-OUT, 
CHECK-RESULTS SECTION. 

OPEN INPUT NET-FILE-OUT. 
C-R-2 . 

READ NET-FILE-OUT AT END GO TO C-R-FINAL. 

DISPLAY EMPL-NO-OUT DEPT-OUT NET-SALES-OUT 
NAME-ADDR-OUT UPON PRINTER. 
C-R-3. 

GO TO C-R-2. 
C-R-FINAL. 

CLOSE NET-FILE-OUT. 
UPDATE-YEARLY-REPORT SECTION. 
U-Y-R-1. .^..•...,.».»- 

SORT NET-FILE-WORK f^ ' 

ASCENDING KEY DEPT sk , 

ASCENDING KEY EMPL-NO 

USING NET-FILE-IN 

GIVING NET-FILE-OUT. 
U-Y-R-2. 

MERGE NET-FILE-WORK 

ASCENDING KEY DEPT 

ASCENDING KEY EMPL-NO 

ASCENDING KEY MONTH 

USING YTD-NET-FILE-IN, NET-FILE-OUT 

GIVING YTD-NET-FILE-MASTER. 
STOP RUN. 
SCREEN-DEPT SECTION. 

■■s-^'D-i';^' " — 

OPEN INPUT NET-FILE-IN. 
S-D-2. 

READ NET-FILE-IN AT END GO TO S-D-FINAL. 
DISPLAY EMPL-NO-IN DEPT-IN NET-SALES-IN 
NAME-ADDR-IN UPON PRINTER. 
S-D-3. 

IF OFF-SITE-LOCATION GO TO S-D-2 
ELSE 

MOVE NET-CARD-IN TO SALES-RECORD 
RELEASE SALES-RECORD 
GO TO S-D-2. 
S-D-FINAL. 

CLOSE NET-FILE-IN. 
S-D-END. 
EXIT. 



\^^ 
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REPORT WRITER (IBM EXTENSION) 



I IBM Extension 



The IBM Report Writer feature is designed according to the 
specifications of American National Standard COBOL» X3. 23-1968 
Thus» it can be considered an extension to American National 
Standard COBOL, X3.23-1974; that is, use of this feature does 
not guarantee results as defined in the 1974 standard. 

The Report Writer allous the COBOL programmer to produce a 
report by specifying the physical appearance of the report, 
rather than by specifying the detailed procedures necessary to 
produce that report. 



REPORT WRITER CONCEPTS 






The Report Writer feature simplifies the programming needed to 
produce an output report in comparison with using 
general-purpose COBOL statements to produce the same report. 

Using general-purpose COBOL, the programmer must write detailed 
procedures for determining the interrelationship of output 
lines, for recognizing page overflow, for constructing headings 
and footings, for recognizing ends of logical data groupings, 
for formatting output lines, and for moving and performing 
arithmetic on the data itself. Such programs are invariably 
large and complex, and usually require a large amount of 
debugging. 

Using Report Writer, the programmer simply describes how the 
report is to look, and what items are to control report logic. 
The Report Writer feature then sets up the subroutines needed to 
produce the report in the requested format. 

The report is described physically and logically in the Report 
Section of the Data Division; the few statements necessary to 
cause the object program to perform the Report Writer 
subroutines are written in the Procedure Division. The 
following paragraphs give an overall description of Report 
Writer logic. 



DATA DIVISION CONCEPTS 



RD Entry 



In the Report Section of the Data Division, the programmer 
completely describes the physical and logical aspects of each 
report to be produced, through a report description (RD) entry, 
and through associated report group description entries. 



The RD entry is comparable to the FD entry for a file. This 
entry names the report, and allows optional specification of 
other clauses. 

THE PAGE CLAUSE: allows the programmer, if page-by-page report 
organization is required, to set up page parameters that specify 
the total number of lines on each physical page, as well as line 
limits within which each type Cheading, detail, footing) of 
report information can be printed. Figure 65 illustrates PAGE 
clause concepts. 
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EXPENSE -REPORT 

CONTROLS ARE FINAL MONTH DAY 
-PAGE LIMIT IS 59 LINES 

HEADING 1 



FIRST DETAIL 9- 
LAST DETAIL 4 8. 
FOOTING 52. 



PAGE clause specifies: 

1. Physical page depth 

2. Heading area 

3. Area in which detail lines may appear 

4. Area in which footing lines may appear 



*r?> 



■0 



MONTH 



JANUARY 



ACME MANUFACTURING COMPANY 

QUARTERLY EXPENDITURES REPORT 

JANUARY EXPENDITURES 

DAY DEPT NO-PURCHASES TYPE COST CUMULATIVE-COST 

01 AOO 
A02 
A02 



2 


A 


2,00 


1 


A 


1 .00 


2 


C 


16.00 



-0 



PURCHASES AND COST FOR 1-01 5 $19.00 $19.00 

********** *******:tf**4:*** ***************** ****-^************************ 

JANUARY 02 A01 2 B 2.00 

A04 10 A 10.00 

A04 10 C 80.00 

PURCHASES AND COST FOR 1-02 22 $92.00 $111.00 

********************************************************************** 
JANUARY 05 A01 2 B 2.00 

PURCHASES AND COST FOR 1-0 5 2 $2.00 $113.00 

**************************************************^******************* 

JANUARY 08 A01 10 A 10.00 

A01 8 B 12.48 

A01 20 D 38.40 

PURCHASES AND COST FOR 1-08 38 $60.88 $173.88 

****** ***********************,(c**,|tj|c**********#^s),j|,:(.:|,j(ts|,:)c:|t^*,|c^,|t*i|t^:(,*,|,^:(;*:|t:(t 

JANUARY 13 AOO 4 B 6.24 

AOO 1 C 8.00 

PURCHASES AND COST FOR 1-13 5 $14.24 $188.12 

********************************************:)(************************* 

JANUARY 15 AOO 10 D 19.20 

A02 1 C 8.00 

PURCHASES AND COST FOR 1-15 11 $27.20 $215.32 

********************** ***********************:|c********^**^^,*:|,^4,:|,:(,;|c4c*** 

JANUARY 21 A03 10 E 3 0.00 

A03 10 F 25.00 

A03 10 G 50.00 

PURCHASES AND COST FOR 1-21 30 $105.00 $320.32 

********************************************************************** 

january 23 aoo 5 a 5.00 

Purchases and cost for i-23 5 $5.00 $325.32 

********************i),:|,*T|c*^j)tHt**********************************^***s(;:|e:),# 



V. 



Figure 65. RD Entry — PAGE Clause Concepts 



THE CONTROL CLAUSE** specifies data items whose values control 
the report logic. For example^ a date field might be a control 
item; a change in the date could cause extra spacing to be 
inserted in the report. When such a field changes value> a 
control break is said to occur. Figure 66 illustrates CONTROL 
clause concepts. 



i 



rwjr 
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RD EXPENSE-REPORT 

CONTROLS ARE FINAL 

MONTH DAY-1 
PACE LIMIT IS 
59 LINEG 
HEADING 1 
FIRST DETAIL 9 
LAST DETAIL 48 
FOOTING 52. 



MONTH 
JANUARY 



DAY 
26 



JANUARY EXPENDITURES (CONTINUED) 
DEPT NO-PURCHASES TYPE COST 



CUMULATIVE -COST 



A04 
A04 



5.00 
7.80 



CONTROL clause 
specifies that 
contro l breaks 
occur when: 

1. DAY report field 
changes value 



:id [_ 



2. MONTH report field! 
changes value [" 

3. FINAL report field 
changes value (that 

is when end-of-report 
is reached. (Not 
shown on this page.) 










PURCHASES AND COST FOR 1-2 6 10 $12.80 $338.12 

_JANUARY 27 AOO 6 B 9.36 

AOO 15 C 120.00 

PURCHASES AND COST FOR 1-27 21 $129.36 $467.48 

jJANUARY 3 AOO 2 B 3.12 

A02 10 A 10.00 

A02 1 C 8.00 

A04 15 B 23.40 

A04 10 C 80.00 

PURCHASES AND COST FOR 1-30 38 $124.52 $592.00 

JANUARY 31 AOO 1 A 1.00 

A04 6 A 6.00 






0- 



PURCHASES AND COST FOR 1-31 7 $7.00 $599.00 

TOTAL COST FOR JANUARY WAS $599.00 



Figure 66. RD Entry — CONTROL Clause Concepts 



THE CODE CLAUSE: allouis the programmer » when two reports avG 
written to one file, to specify a differentiating code character 
for each. 



Report Group Description Entries 






Following the RD entry ar& one or more associated level-01 
entries, known as report group description entries. Each such 
level-01 entry, together with its hierarchy of subentries, 
describes a report group — a unit of output information to be 
produced in the report. A report group consists of one or more 
complete lines in the report; it can never be a partial line. 

Through the report group description entries, the physical and 
logical characteristics of each report group are completely 
described. For each report group, the programmer specifies^ 

• Its function — Through a TYPE clause specified at the 01 
level. The function of the group may be as a report, page, 
or control heading or footing, or as a detail line. CA 
control heading or footing is a report group produced only 
when a control break occurs.) 

• Its vertical spacing — Both within itself (if this report 
group contains more than one complete line) and/or in 
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relation to other report groups. Vertical spacing can be 
specified as absolute (as a specific line on a page) or as 
relative (as an increment to the last line printed). j ^ 

■- The LINE Clause — Specifies absolute or relative spacing 
for this report group. 

— The NEXT GROUP Clause — Specifies absolute or relative 
spacing before the next report group is printed. 

The Report Writer manipulates LINE and NEXT GROUP clause 
spacing in accordance with the page parameters set up 
through the PAGE clause in the RD entry. 

• Its horizontal spacing — Specified through the COLUMN clause 
as an absolute displacement from the leftmost print position 
and through the length and editing characteristics of the 
associated PICTURE clause. 

• Its contents — Specified through one of three clauses^ 

The VALUE Clause — -^Identi fi es the contents of this entry 
as having a constant value to be used each time the 
entry is produced. 

The SOURCE Clause — Identifies a data item outside the 
Report Section; whenever this report entry is to be 
produced, the current value of this data item is used. 

The SUM Clause — Identifies the contents of this footing 
entry as being the result of addition operations. 
Through the SUM clause various totals can be calculated 
from the input data and printed as output in the final 
report. 

These report group description entry concepts are illustrated in ^-\ 
^^^^^^ 67. '^J 



1 



J^ 
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Report Writer Source Lines 



(5 



01 



1 . 



© 

(2X 



DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 
05|--CCOLUMN IS 2 GROUP INDICATE PICTURE IS A(9) 

SOURCE IS MONTHNAME OF RECORD-AREA (MONTH )_; 

05 [-[column IS 13 GR OUP INDICATE PICTURE IS 99 

SOURCE IS DAY-1 . 

COLUMN IS 19 PICTURE IS XXX SOURCE IS DEPT. 

COLUMN IS 31 PICTURE IS Z9 SOURCE IS NO-PURCHASES. 

COLUMN IS 42 PICTURE IS A SOURCE IS TYPE -PURCHASE . 

COLUMN IS 50 PICTURE IS ZZ9.99 SOURCE IS COST. 



05 
05 
05 
05 



01 ITYPE IS CONTROL FOOTING DAY-1. | 



05 LINE NUMBER IS PLUS 2 7)- 



|-(J0 



G> 



COLUMN 

VALUE 

COLUMN 

COLUMN 

COLUMN 

COLUMN 

MIN 

COLUMN 

COLUMN 



2 PICTURE X(22) 

'PURCHASES AND COST FOR"Z] nz:^!: 

24 PICTURE Z9 SOURCE SAVED - MONTH. 

2 6 PICTURE X VALUE "-"72 

27 PICTURE 99 SOURCE DAY-1 Z H — 

30 PICTURE ZZ9 SUM NO-PURCHASES 



_r COLUMN 49 PICTURE $$$9.99 SUM COST. 
QO COLUMN 65 PICTURE $$$$9.99 SUM COST. 
RESET ON FINAL. 
05 [LINE PLUS 1 [COLUMN 2 PICTURE X(71) 



I VALUE ALL "*" 



Resulting Report Lines 



o 



(7) (7) (^ 

HFEBRUARY, ,15, A02 



o- 







A02 
A02 
A02 
A03 
A04 
A05 
A05 



(^ q) 



PURCHASES AND COST FORI 2-15 



(© 



9 ^ 



4|}- 



92 

****** :):**!(:* ****:(!* ******************************************* ***********! 



-0- 

0€- 



10.00 
3.12 
8.00 

75.00 

7.80 

8.00 

_40.00 

151 .92 



"^ 






© 



© 



©-E- 



Report Group Description Entry specifies: 

FUNCTION - through TYPE clauses as: 

TYPE DETAIL ^M 



TYPE CONTROL FOOTING 



VERTICAL SPACING - through 
relative LINE clauses 



HORIZONTAL SPACING - through 
COLUMN clauses 



© 
© 





CONTENTS - through: 

SOURCE clauses (7) 



SUM clauses 
VALUE clauses 



© 





750, 



^ 



Figure 67. Report Group Description Entry Concepts 



The Report Writer aluays treats a report group as a unit» even 
though it may be printed on more than one line. When page 
organization is specified, a report group is aluays printed on 
one page; it is never begun on one page and completed on 
another. Therefore, before any report group is produced, the 
Report Writer performs a page fit test, and if the complete 
report group will not fit on this page (that is, if a page break 
occurs) any necessary page footing is produced, the page is 
ejected, and any necessary page heading is produced before this 
report group is printed. 



PROCEDURE DIVISION CONCEPTS 



In the Procedure Division, three basic Report Writer statements 
transfer control to the Report Writer subroutines^ INITIATE, 
GENERATE, and TERMINATE. In addition, the USE BEFORE REPORTING 
Declarative sentence allows the programmer to specify special 
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INITIATE Statement 



GENERATE Statement 



procedures to be executed before specific report groups are 
printed. 



The INITIATE statement is analogous to the OPEN statement for a 
file. An INITIATE statement must be executed before Report 
Writer processing can begin. Execution of the INITIATE 
statement initializes counters* and so forth. 



This statement causes the Report Writer to automatically produce 
the various report groups defined in the Report Section, where 
and when they are needed according to the report logic. Two 
kinds of reporting are provided^ summary reporting and detail 
report i ng. 

SUMMARY REPORTING^ In summary reporting, only heading and 
footing report groups are produced by the Report Writer; they 
are produced in the order required by the report logic. As 
specified by the programmer, counters are reset each time a 
report group is produced. 

DETAIL REPORTING^ In detail reporting, the Report Writer 
produces the TYPE DETAIL report group named in the GENERATE 
statement each time it is executed, as well as the heading and 
footing report groups produced in summary reporting. 



C 



TERMINATE Statement 



This statement is analogous to a CLOSE statement for a file. 
Execution of the TERMINATE statement completes report processing 
as if a control break at the highest level has occurred; all 
footing report groups up to the highest level are produced, all 
counters are reset, and the Report Writer processing is ended. 



.r 

k. 



y 



USE BEFORE REPORTING Sentence 



This sentence, after a section header in the Declaratives 
section, allows the programmer to write declarative procedures 
to modify any heading or footing report group before it is 
printed. Through such procedures, the programmer can specify 
any special processing requirements beyond the basic Report 
Writer functions. 

Special processing may include any calculations required for the 
report besides the additions provided through the SUM clause, 
any editing of a line of the report, or some other modification 
desired by the programmer. 

The sample program at the end of this chapter illustrates Report 
Writer features; it utilizes both detail and summary reporting. 

Rules for writing COBOL programs using the Report Writer feature 
are given in the following sections. 



REPORT »RITER — ENVIRONMENT DIVISION 



In the Environment Division, there are special considerations 
for the Special-Names paragraph and the File-Control entry. 



SPECIAL-NAMES PARAGRAPH 



When more than one report is to be written on a file, the 
identifying character to be used in the CODE clause must be 
given a mnemonic-name. 
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Format 

SPECIAL-NAMES . 

Cf uncti on-name-1 1^ mnemonic-name]... 

Ulhen used with the CODE clause> f uncti on-name-1 must be a 
one-character nonnumeric literal. 

Mnemonic-name follows the rules for formation of a 

usei — specified name; at least one character must be alphabetic 



FILE-CONTROL ENTRY 



The File-Control entry for the report file must specify a 
physical sequential file. 



REPORT WRITER — DATA DIVISION 



In the File Section, for each report to be produced, there must 
be one or more FD entries, each of which contains a REPORT 
clause. 

In the Report Section, there must be a report description (RD) 
entry for each report to be produced. The RD entry describes 
the structure and organization of the report. Following each RD 
entry, there must be one or more report group description 
entries to describe the conceptual characteristics of the 
report . 



FILE SECTION 






The FD entry describes the physical structure of the file on 
which the report is to be written and names any reports 
associated with this file. 

Format 

FD file-name 

\ REPORT IS 1 

< > report-name-1 Creport-name-2] . . . 

I REPORTS ARE I 

L . J 

[ RECORD CONTAINS [integer-1 TO] i nteger-2 CHARACTERS] 

[BLOCK CONTAINS Clause] 

LABEL RECORDS Clause 
[DATA RECORDS Clause] 
[VALUE OF Clause]. 

File-name must specify a physical sequential file. 

Specification of the BLOCK CONTAINS, LABEL RECORDS, DATA 
RECORDS, and VALUE OF clauses is as described in the Data 
Division chapter. 

Special considerations for the REPORT clause, the RECORD 
CONTAINS clause, and for record description entries follow. 



REPORT CLAUSE 



The REPORT clause associates RD entries in the Report Section 
with the FD entry (or entries) for the report in the File 
Section. 

Each unique report-name must appear in the REPORT clause of the 
FD entry (or entries) for the file(s) on which the report is 
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produced. A given report-name may appear in a maximum of tMO 
REPORT clauses. 

The order in which report names appear in the REPORT clause is ^ -j 
not significant. ^.^ 

Each report-name must be the subject of an RD entry in the 
Report Section. Each named report may have a unique size, 
format* logical structure, and so forth. 

Ulhen an FD entry includes at least one REPORT clause* an 
associated record description entry need not be specified* 
because the associated RD entry and report group description 
entries completely describe the records associated with this 
file. 



RECORD CONTAINS CLAUSE 



The RECORD CONTAINS clause specifies the size of the report 
record. 

Integer-2 specifies the maximum size of the record. This size 
includes the length of the print line, plus the carriage control 
character, and, if the CODE clause is specified, the report code 
character. 

When integer-2 alone is specified, records are fixed length, and 
the size of each print line and each blank line is as follows* 

• When CODE clause is not specified (integei — 2-1) 

• When CODE clause is specified ( i nteger-2-2) 

See the System Dependencies chapter. 

When both integer-1 and integer-2 are specified, records are // X 

variable length. The size of each print line is calculated as L ^ 

for fixed length recordis. Blank lines are 17 characters in ^-^^ 
length. 5 

If the RECORD CONTAINS clause is omitted, the compiler assumes a 
record size of 133 characters. 



RECORD DESCRIPTION ENTRIES 



REPORT SECTION 



Optionally, the FD entry for a report file may be followed by 
one or more record description entries. 

When such entries are included and the file is used for OUTPUT, 
the WRITE AFTER ADVANCING statement must be specified when 
creating records for the file. 

When Report Writer output is printed online, DISPLAY statements 
to the same device in the same program should not be used, or 
line control in the Report Writer output will be unpredictable. 



The Report Section describes one or more reports to be produced. 

The Report Section begins with the header REPORT SECTION. The 
Report Section contains two types of entries. For each report, 
the entries are written in the following order** 

1. The RD Entry — which names the report and describes the 
physical structure and organization of the report. 

2. Report Group Description Entries — which immediately follow ^ ~x 
the associated RD entry, and which specify the conceptual M y^^ 
characteristics of the report and the physical structure of \^ 
each printed line. 
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RD ENTRY 



The RD entry describes the structure and organization of the 
report. 



Format 

RD report-name 

CWITH CODE mnemonic-name] 

r CONTROL IS 1 [ FINAL 1 

C < > < > identifier-1 Cidentif ier-2] ... ] 

I CONTROLS ARE I ( [ FINAL ] | 

L J L J 

\ LIMIT IS 1 [ LINE 1 

[ PAGE I I integer-1 < > 

I LIMITS ARE I I LINES I 

L J L J 

[ HEADING integer-2] 

[ FIRST DETAIL integer-3] 

[ LAST DETAIL integer-4] 

[ FOOTING integer-5] ]. 



The clauses that follow the name of the RD entry are optional. 
The order of their appearance is not significant. In one RD 
entry, each may be specified only once. 






REPORT-NAME 



The report-name must be unique and must immediately follow the 
level indicator RD. The report-name must follow the rules of 
formation for a usei — specified name; at least one character must 
be alphabetic. The report-name must also be specified in the FD 
entry for the file on which this report is to be written. 

Report-name is the only qualifier for the LINE-COUNTER and 
PAGE-COUNTER special registers and for all data-names associated 
with this report. 



CODE CLAUSE 



The CODE clause specifies an identifying character placed at the 
beginning of each report line. This identifying character has 
meaning only when more than one report is written on the file. 

Mnemonic-name must be associated with a 1-character nonnumeric 
literal specified as functi on-name-1 in the Environment Division 
SPECIAL-NAMES paragraph. This 1-character literal is the code 
character associated with each line of the report. 

The code character precedes the carriage-control character at 
the beginning of each line. 

When the report is printed online, the CODE clause must not be 
speci f i ed. 



CONTROL CLAUSE 






The CONTROL clause specifies the control hierarchy for the 
report. 

Identifiei — 1 and identif ier-2 must each specify different 
fixed-length nonedited data items. That is, their descriptions 
must be such that they neither occupy Cpartially or completely) 
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the same area of storage* nor do their PICTURE strings contain 
any editing characters. Identifier-1 and identifiei — 2 must not 
be defined within the Report Section. 

Identifiei — 1 and identifiei — 2 are considered to be controls for 
this report? when a control changes in value (that is» when a 
control break occurs)* special Report Writer actions are 
performed. The order in which the controls are specified 
represents their position* in descending order* within the 
control hierarchy for this report. 

FINAL* explicitly or implicitly* represents the highest level of 
control. Identifiei — 1 represents the major control* 
identifier-2 represents the intermediate control* and so forth. 
The last specified identifier is the minor (lowest level) 
control . 

In report groups for this report* FINAL and control identifiers 
are the only valid operands named in TYPE CONTROL FOOTING or 
RESET clauses. 

The CONTROL clause is required when any control report groups 
other than FINAL are used. When only a FINAL control is used* 
the CONTROL clause may be omitted. 

When a DETAIL report group is to be generated* controls are 
tested for a control break. 

Controls are tested in the order in which they appear in the 
CONTROL clause-* highest level first* then next highest level* 
etc. When a control break is found for a particular level* a 
control break is implied for each lower level control as well. 
A control break for FINAL occurs only once* at the beginning and 
ending of the report (that is* before the first detail line is 
printed and after the last detail line is printed). 






.ff" 



To ensure that source fields in control headings and footings 

contain correct data during control break processing* these "4; ^ 

fields should be included in the CONTROL clause. 

The action to be taken when a control break occurs depends on 
what the programmer defines. For each control* one CONTROL 
HEADING report group and/or one CONTROL FOOTING report group* or 
neither may be specified. 

Before the DETAIL group causing the control break is printed* 
the specified control headings and footings are printed in the 
following order-' 

1. Lowest level control footing 

2. Next higher control footing 



X. Control footing for which control break occurred 
y. Control heading for which control break occurred 






J 
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z. Next loKier control heading 



n. Lowest level control heading 

n+1. DETAIL line causing control break 

If» Mhile control footings are being printed> end-of-page is 
reached (that is» a page break occurs) » any PAGE FOOTING is 
printed* a new page is begun* and any PAGE HEADING is printed 



PAGE CLAUSE 



O 

^■^ 



The PAGE clause defines the logical page size and the vertical 
subdivisions of the page size within which report groups are 
presented. 

The PAGE clause is required only when page format must be 
controlled by the Report Writer. If page formatting is not 
desired, the PAGE clause can be omitted; in this case all LINE 
and NEXT GROUP clauses must specify relative line spacing. 

When the PAGE clause is omitted, no PAGE-COUNTER or LINE-COUNTER 
special registers are generated for this RD entry. 

The options of the PAGE clause are discussed in the following 
paragraphs. The permissible specifications for each option are 
dependent on what other options have been specified. The 
overall rules are? 

• Integer — 1 through integei — 5 must be positive integers. 

• Integei — 2 through integei — 5 must be in ascending order. 

• Integer-5 must not exceed integei — 1. 



PAGE LIMIT integer-1 



HEADING integer-2 



Integei — 1 specifies the depth of the report page, and the last 
line on which anything may be printed. If the PAGE clause is 
specified, integei — 1 must be specified. The report page depth 
may or may not be equal to the physical page depth. 

Integei — 1 must not exceed 999. 



Integei — 2 specifies the first line number of the first heading 
print group. Integei — 2 is the first line on which anything may 
be printed. 



FIRST DETAIL integer-3 



Integei — 3 specifies the first line number of the first body 
group (a body group is a TYPE DETAIL, CONTROL HEADING, or 
CONTROL FOOTING report group). No body group is printed before 
integer-3. 



LAST DETAIL integer-4 



o 



Integei — 4 specifies the last line number of the last nonfooting 
body group. No CONTROL HEADING or DETAIL report group is 
printed after integei — ^. 
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FOOTING integer-5 



Integer-5 specifies the last line number of the last CONTROL 
FOOTING report group. No CONTROL FOOTING report groups are 
printed beyond integer-5. (PAGE FOOTING report groups are 
printed beyond integer-5.) 






General Considerations 



The Report Writer uses the values specified in the PAGE clause 
to establish lines on the logical page within which each TYPE of 
report group can be printed. Figure 68 shows the valid page 
area for each type of report group* and also which options of 
the PAGE clause are required. 



TYPE Clause Option 


Valid LINE Clause Specificatioii 
Range within PAGE Clause Ranges 


Required PAGE Clause 
Entries 


REPORT HEADING 
RH 

(separate page) 


integer-2 
to 
integer- 1 


PAGE LIMIT integer- 1 


REPORT HEADING 
RH 

(same page) 


integer-2 
to 
integer- 1 


PAGE LIMIT integer- 1 
FIRST DETAIL integer-3 


PAGE HEADING 
PH 


integer-2 ^ 
to 
(integer-3- 1) 


PAGE LIMIT integer-1 
FIRST DETAIL integer-3 


CONTROL HEADING 
CH 

DETAIL 
DE 


integer-3 

to 

integer-4 


PAGE LIMIT integer-1 


CONTROL FOOTING 
CF 


integer-3 

to 

integer-5 


PAGE LIMIT integer-1 


PAGE FOOTING 
PF 


(integer-5 -i- 1)2 

to 

integer- 1 


PAGE LIMIT integer! 

LAST DETAIL integer-4 
FOOTING integer-5 


REPORT FOOTING 
RF 

(same page) 


integer-2 
to 
integer- 1 


PAGE LIMIT integer-1 

LAST DETAIL integer-4 
FOOTING integer-5 


REPORT FOOTING 
RF 

(separate page) 


integer-2 
to 
integer- 1 


PAGE LIMIT integer-1 


^ If a PAGE HEADING report group follows a REPORT HEADING report group on the same page, 
both must be printable in this area of the page. 

2 If a PAGE FOOTING report group precedes a REPORT FOOTING report group on the same page, both 
must be printable in this area of the page. 



ft "^x 



Figure 68. Valid LINE Clause Specifications for Each PAGE Clause 
Range 



^tai 
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Figure 69 illustrates the areas defined in Figure 68. 



■ — >^^^ Report Group 
' — o.^.^^ TYPE Clause 
PAGE Clause *^ — .......,^^ 

Entry **""*«^^^^^^ 


REPORT 
HEADING/ 
FOOTING 


PAGE 
HEADING 


DETAIL & 
CONTROL 
HEADING 


CONTROL 
FOOTING 


PAGE 
FOOTING 


HEADING integer-2 
FIRST DETAIL integer-3 
LAST DETAIL integer-4 
FOOTING integer-5 
PAGE LIMIT integer- 1 






\ 




t 






" 


^ 


♦ 





Figure 69. PAGE Clause Ranges 






Uhen the PAGE clause is specified^ and some or all of the 
optional limits are omitted, the Report Writer assumes certain 
values for each omitted specification. Figure 70 defines the 
assumed values. 



Omitted PAGE LIMIT Entry 


Default Value Assumed 


HEADING integer-2 


integer-2 = 1 


FIRST DETAIL integer-3 


integei — 3 = integei — 2 


LAST DETAIL integer-4 


integei — 4 = integei — 5 


FOOTING integer-5 


integei — 5 = integei — 4 


both LAST DETAIL integer-^ and 
FOOTING integer-5 


integei — 4 & integei — 5 = 
integei — 1 



Figure 70. Values Assumed for Omitted PAGE Clause Options 

If absolute line spacing is specified in the LINE clause for all 
report groups, then integei — 2 through integei — 5 need not be 
specified. If any of these limits Br& specified, and the report 
uses only absolute line spacing, the limits are ignored. 

When relative line spacing is specified for any report group, 
all LINE NUMBER and NEXT GROUP spacing must be consistent with 
the parameters specified (implicitly or explicitly) in the PAGE 
clause. 
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REPORT GROUP DESCRIPTION ENTRY 



The report group description entry defines the format and , 

characteristics of a report group. '^^J^ 

A report group consists of one or more printable lines treated 
as a unit of a report; a report group may also be a null group > 
that is» a nonprintable report group. 

General Format 1 — Level-01 Group Entry 

01 [data-name] 
TYPE Clause 
[LINE clause! 
[NEXT GROUP clause] 
[USAGE clause]. 

General Format 2 — Group Entry 

level-number [data-name] 
[LINE clause] 
[USAGE clause]. 

General Format 3 — Elementary Entry 

level-number [data-name] 

[ COLUMN NUMBER IS integer] 
[ GROUP INDICATE] 
[ LINE Clause] 

r SOURCE IS identifier 

SUM identifier-1 [ i denti f i er-2] ... [UPON data-name-2] 



I FINAL I 

[ RESET ON < > 

I i denti f i er-3 I 

L J 

VALUE IS literal 



PICTURE Clause 
[USAGE Clause] 
[BLANK WHEN ZERO Clause] 
[JUSTIFIED Clause]. 

General Format 4 — Level-01 Elementary Entry 

01 [data-name] 
TYPE Clause 
[LINE Clause] 
[NEXT GROUP Clause] 
[COLUMN Clause] 
[GROUP INDICATE Clause] 



,4 ~'>x. 



\ SOURCE Clause 1 
< SUM Clause > 
I VALUE Clause I 



PICTURE Clause 

[USAGE Clause] 

[BLANK WHEN ZERO Clause] 

[JUSTIFIED Clause]. 



A report is made up of one or more report groups^ each described 
by a hierarchy of entries similar to data description entries. 



General Format 1 — Level-01 Group Entry 



This format specifies the beginning of a report group ^fc.«/ 

description entry, and is the first entry for a report group. 
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General Format 2 — Group Entry 



This format specifies a group entry. Valid level-numbers are 02 
through 48. A group entry has the following functions^ 

• To specify the LINE number of subordinate elementary entries 

• To group subordinate elementary entries together 

(If a group entry contains no LINE clause^ and there are no 
subordinate sum counters* this group entry serves only as 
documentat i on , ) 



General Format 3 — Elementary Entry 






This format specifies an elementary entry. Valid level-numbers 
are 02 through 49. An elementary entry has the following 
functions? 

• To describe a printable group. In this case a COLUMN 
clause, a PICTURE clause, and either a SOURCE, SUM, or VALUE 
clause must be specified. 

• To describe a null group. In this case no COLUMN, VALUE, or 
LINE clause may be specified. 

Elementary groups (both printable and null) perform the 
following summing functions^ 

• To describe an elementary DETAIL entry that specifies which 
SOURCE items are to be summed when this DETAIL group is 
produced (see SOURCE clause). 

• To define a sum counter in an elementary CONTROL FOOTING 
entry (see SUM clause). 



General Format ^ — Level-01 Elementary Entry 



This format describes a report group that consists of one 
elementary entry. When General Format 4 is specified, this 
entry must be the only entry for the report group. 



General Considerations 



The following rules apply for the specification of report group 
description entries? 

1. The first entry within the report group must be at level 01, 
and must contain a TYPE clause. It may be either a General 
Format 1 group entry, or, if it is the only entry in this 
report group, it may be a General Format 4 elementary entry. 

2. Immediately subordinate entries may follow. These may be 
either General Format 2 group entries or General Format 
elementary entries. 

3. Any General Format 2 group entry must have at least one 
General Format 3 elementary entry subordinate to it. 

4. The report group description entry ends when the next RD 
entry or level-01 entry is encountered, or when the end of 
the Report Section is reached, 

5. Except for the data-name clause, which, when written, must 
immediately follow the level-number, the order in which the 
clauses are written is not significant. 

6. A null group is a report group for which no LINE or COLUMN 
clauses have been specified. 
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Figure 71 shoMs which report group clauses are permitted^ which 
are required, and which are invalid for each report group TYPE. 






Group or Elementary Report Groups 


TYPE 
Clause 


LINE Clause 


NEXT GROUP Clause 


Absolute 


Relative 


NEXT PAGE 


Absolute 


Relative 


NEXT PAGE 


RH(S) 


P 


P 








R 


RH (NS) 


P 


P 




P 


P 




PH 


P 


P 










CH 


P 


P 


P 


P 


P 


P 


DE 


P 


P 


P 


P 


P 


P 


CF 


P 


P 


P 


P 


P 


P 


PF 


P 


P 










RF (NS) 


Rl 


Rl 










RF(S) 


P 


P 


R 









Elementary Report Groups 


TYPE 

Clause 


GROUP 
INDICATE 

Clause 


COLUMN^ 
Clause 


PICTURE^ 
Clause 


VALUE^ 
Clause 


SOURCE^ 
Clause 


SUM^ 
Clause 


reset"^ 

Option 


RH(S) 




P 


P 


P 


P 






RH (NS) 




P 


P 


P 


P 






PH 




P 


P 


P 


P 






CH 




P 


P 


P 


P 






DE 


P 


P 


P 


P 


P 






CF 




P 


P 


P 


P 


P 


P 


PF 




P 


P 


P 


P 






RF (NS) 




P 


P 


P 


P 






RF(S) 




P 


P 


P 


P 








(S) = on separate page P = permitted 
(NS) = not on separate page R = required 

space = not permitted 

1 - only one is required, both are permitted 

2 - required if item is to be printed 

3 - one is required if item is to be printed 

4 - permitted only when SUM clause is specified 



I 



Figure 71. Valid Report Group Clauses — by Report Group TYPE 



( 



.J' 
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DATA>NAME CLAUSE 



The data-name clause identifies the entry. 

Format 

level-number [data-name] 

Mhen specified, data-name must immediately folloui level-number. 

Data-name is required only for J 

• A TYPE DETAIL report group 

• A report group named as an operand in a SUM clause 

• A HEADING or FOOTING report group referred to in a USE 
BEFORE REPORTING Declarative procedure 

In all other cases, data-name may be omitted. (Note that, when 
data-name is omitted in the Report Section, the key word FILLER 
must not be used in its place.) Within a given report, 
data-name must be unique. 



TYPE CLAUSE 



The TYPE clause specifies the function of this report group, and 
when this report group is to be processed. 

Format 



^% 



[ REPORT HEADING 1 

< > 

[EH J 

I PAGE HEADING ] 

< > 
I PH I 

L J 

[ CONTROL HEADING 1 [ FINAL 1 

< > < > 
i CH II identifier-n I 

L J L J 



[ DETAIL 1 
TYPE IS < < > 
I DE I 

L J 



r CONTROL FOOTING 1 [ identifier-n I 
> < > 

I 1 FINAL I 



< 

I CF 

L 



J L 



r PAGE FOOTING 1 

< > 

I PF I 

L J 

I REPORT FOOTING 1 

< > 
1 RF I 



The TYPE clause must be specified only for a level-01 entry in a 
report group description entry. 
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The options are self-explanatory* and the abbreviations are the 
equivalent of the fully spelled-out option, A TYPE REPORT 
HEADING specifies that the lineCs) in this report group sre to 
be treated as the heading of the report. The TYPE PAGE HEADING 
specifies that the lineCs) of this report group are to be 
treated as the page heading for this report* etc. 

Figure 72 gives the options of the TYPE clause* the number of 
each allouied* Mhen each is produced* and the formatting 
sequence. Additional rules follow* 



r^^. 
i^' 



TYPE Clause 
Optionl 


Number 
Alloived 


When Produced 


Page Placement 


REPORT 
HEADING 


1 


First GENERATE statement 
only 


precedes all other groups 


PAGE 
HEADING 


1 


First GENERATE statement 
and each page break 


precedes CH, DE, CF, PF on 
each page 


CONTROL 
HEADING 
FINAL 


1 


First GENERATE statement 
only 


precedes DE, CF, PF on first 
page 


CONTROL 
HEADING 
identifier 


1 for each 
identifier 


control break^ 


precedes DE, CF, PF on each 
page 


DETAIL 


as 

logically 

needed 


Each GENERATE statement3 


follows all HEADING, 
precedes all FOOTING groups 


CONTROL 

FOOTING 

identifier 


1 for each 
identifier 


control break^ 


follows DE groups 


CONTROL 

FOOTING 

FINAL 


1 


TERMINATE statement 


follows last DE and other CF 
groups 


PAGE 
FOOTING 


1 


at each page break 


follows DE and CF groups on 
each page 


REPORT 
FOOTING 


1 


TERMINATE statement 


follows all other groups 


1 the report groups may be specified in any sequence. 

^ the control break must occur at the level of this identifier, or at a higher level in the control hierarchy. 

3 a printable DETAIL group is printed only if the GENERATE data-name form of the statement is used. 






Figure 72. TYPE Clause Presentation Rules 



REPORT HEADING: Nothing precedes a REPORT HEADING group in a 
report. An associated SOURCE clause refers to the value of the 
SOURCE data item at the time the first GENERATE statement is 
executed. 



PAGE HEADING: The beginning of the page is determined according 
to the page condition rules as specified in the PAGE clause. 

CONTROL HEADING FINAL: This report group is produced once during 
execution of the first GENERATE statement* before any DETAIL 
group is printed. FINAL need not be named in the associated 
CONTROL clause. An associated SOURCE clause refers to the value 
of the SOURCE data item at the time the first GENERATE statement 
i s executed. 

CONTROL HEADING IDENTIFIER-N: A control break must occur to 
produce this report group. Identifiei — n must be named in the 
associated CONTROL clause. An associated SOURCE clause refers 
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to the value of the SOURCE data item at the time this CONTROL 
HEADING is presented. 

Note: Identifier-n must be qualified (or not qualified) in 
exactly the same way as the corresponding identifier in the 
CONTROL clause. 

DETAIL: This report group must have a unique data-name. An 
associated SOURCE clause refers to the value of the SOURCE data 
item at the time the DETAIL group is produced. 

CONTROL FOOTING IDENTIFIER-N: A control break must occur to 
produce this report group. Identifiei — n must be named in the 
associated CONTROL clause. An associated SOURCE clause refers 
to the value of the SOURCE data item at the time the CONTROL 
FOOTING is presented. 

Note: Identifiei — n must be qualified (or not qualified) in 
exactly the same way as the corresponding identifier in the 
CONTROL clause. 

CONTROL FOOTING FINAL: This report group is produced once at the 
termination of the report. FINAL need not be named in the 
associated CONTROL clause. An associated SOURCE clause refers 
to the value of the SOURCE data item at the time the TERMINATE 
statement is executed. 

PAGE FOOTING: The ending of the page is determined according to 
the page condition rules as specified in the PAGE Clause. 

REPORT FOOTING: Nothing follows a report footing group in a 
report. An associated SOURCE clause refers to the value of the 
SOURCE data item at the time the TERMINATE statement is 
executed. 

Figure 71 gives the relation of the TYPE clause to the other 
report group description clauses. 

Note: When a USE BEFORE REPORTING declarative procedure is 
associated with a CONTROL FOOTING report group: 

• For a SOURCE item named i n a CONTROL clause, the value used 
is the value of the item before the control break. 

• For any other SOURCE item, the value used is the value of 
the item after the control break. 



LINE CLAUSE 



The LINE clause specifies the absolute or relative line number 
of this entry in reference to either the page or the preceding 
entry. 

Format 



I integei — 1 | 
[ LINE NUMBER IS < PLUS integer-2 > ] 
I NEXT PAGE I 

L J 

A LINE clause must be associated with each line of a report. 

In any report group, the LINE clause must be specified as 
follows: 

1. For the first line, at the 01-level, or before or with the 
first elementary item in the line 

2. For subsequent lines, before or with the first elementary 
item in the line 
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Report Group Types 



iAihen an entry with a LINE clause is specified* subsequent 
entries are implicitly presented on the same line until another 
LINE clause or the end of the report group is encountered. 

Integei — 1 and integei — 2 must be positive integers. 

LINE NUMBER IS INTEGER-1: This option is an absolute LINE 
clause; it specifies the fixed position on the page at which 
this line is produced. LINE-COUNTER is set to the value of 
integei — 1» and is used for positioning this and following 
entries until a different value of LINE-COUNTER is specified, 
(See the description of Report Writer Special Registers later in 
thi s chapter. ) 

Within a report group description entry, absolute LINE clause 
entries must be specified in ascending order. 

Within a report group description entry, an absolute LINE clause 
must not be preceded by a relative LINE clause. 

LINE NUMBER IS PLUS INTEGER-2: This option is a relative LINE 
clause. The line is printed relative to the previous line 
position. LINE-COUNTER is increased by the value of integei — 2 
and is used for positioning this and following entries until a 
different value is specified. (See the following discussion of 
report group types for exceptions to this rule.) 

If the print line of the first body group on a page contains a 

relative LINE clause, the line is printed on line FIRST DETAIL 

integei — 3, unless LINE-COUNTER contains an equal or greater 

value. In this case, the line is printed on line LINE-COUNTER 
plus 1. 

Additional rules for relative LINE clauses depend on the report 
group type. The following discussion on report group types 
gives additional rules. 

LINE NUMBER IS NEXT PAGE: This option specifies that this report 
group is to be printed on the next following page, rather than 
on the current page. It may be used only as the first LINE 
clause within a report group. 

If the report group entry for a body group contains a LINE 
NUMBER IS NEXT PAGE clause, and the first line contains a 
relative LINE clause, the first line is printed relative to 
FIRST DETAIL integer-3 or relative to LINE-COUNTER, whichever is 
greater. 

The line is printed on line FIRST DETAIL integei — 3, unless 
LINE-COUNTER contains an equal or greater value. In this case, 
the line is printed on line LINE-COUNTER 1. 

Note: At the beginning of a new page, LINE-COUNTER can contain a 
value equal to or greater than FIRST DETAIL integer-3 only as 
the result of a NEXT GROUP clause specified in the previous body 
group. (See "NEXT GROUP Clause.") 



Figure 71 shows permissible combinations of the report group 
LINE clause and the TYPE clause and with other report group 
description clauses. Special considerations for each report 
group type follow^ 

1. REPORT HEADING. If the first line contains a relative LINE 
clause, it is relative to line HEADING integer-2. 

2. PAGE HEADING. If the f i rst line contains a relative LINE 
clause, it is relative to line HEADING integei — 2 or 
LINE-COUNTER, whichever is greater. (If the value in 
LINE-COUNTER is greater than HEADING integer-2, it means 
that a REPORT HEADING print group precedes the PAGE HEADING 
group on this page.) 






^k^ 
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3. PAGE FOOTING. If the first line contains a relative LINE 
clause^ it is relative to line FOOTING integei — 5 plus one. 

4. REPORT FOOTING. If the first line contains a relative LINE 
clause, it is relative to line FOOTING integei — 5 or 
LINE-COUNTER, whichever is greater. (If the value in 
LINE-COUNTER is greater than FOOTING integer-5, it means 
that a PAGE FOOTING report group precedes the REPORT FOOTING 
group on this page.) 

If LINE IS NEXT PAGE is the only LINE clause in this report 
group, the line is printed on line HEADING integer-2. 



NEXT GROUP CLAUSE 



The NEXT GROUP clause specifies the spacing condition following 
the last line of a report group. 

Format 



[NEXT GROUP IS 



I integer-1 j 
< PLUS integer-2 > 
1 NEXT PAGE I 



^it^,i.jiiJ^ 



The NEXT GROUP clause may be specified only in a level-01 entry 
for a REPORT HEADING, PAGE FOOTING, or body group. 

Integei — 1 and integei — 2 must be positive integers. 

If a USE BEFORE REPORTING declarative procedure causes a report 
group to be suppressed, the NEXT GROUP clause functions are not 
performed for this execution of this report group. 

NEXT GROUP IS INTEGER-l* This option specifies an absolute NEXT 
GROUP clause. 

Integei — 1 specifies an absolute line number. After the last 
line of this report group is produced, LINE-COUNTER is set to 
integei — 1 . 

NEXT GROUP IS PLUS INTEGER-2: This option specifies a relative 
NEXT GROUP clause. 

Integei — 2 specifies a relative line number. After the last line 
of this report group is produced, LINE-COUNTER is incremented by 
integer-2 . 

NEXT GROUP IS NEXT PAGE: This option specifies that after this 
report group is produced, LINE-COUNTER is set so that the next 
report group will be produced on the next page. 



Report Group Types 






Figure 71 shows permissible combinations of the NEXT GROUP 
clause and the report group TYPE clause and with other report 
group description clauses. There ar& also special 
considerations for each valid report group type. 

REPORT HEADING GROUP: An absolute or relative NEXT GROUP clause 
must not cause LINE-COUNTER to be set to a value greater than 
FIRST DETAIL integei — 3 minus 1. 

BODY GROUPS: The following considerations apply: 

• If a NEXT GROUP clause implies a page change, the change 
occurs only when the next body group is to be produced. 

• If an absolute NEXT GROUP clause causes a page change, 
LINE-COUNTER is set to the value of integer-1 before the 
first line of the next printable body group is formatted. 
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COLUMN CLAUSE 



PICTURE CLAUSE 



If the first line of the next body group contains a relative 
LINE clause, the line is printed on line LINE-COUNTER + 1. 

If the first line of the next body group contains an 
absolute LINE clause that is not greater than integei — 1, a 
page containing only PAGE HEADING and PAGE FOOTING report 
groups will be printed, and the next body group will be 
printed on the following page. 

An absolute or relative NEXT GROUP clause may cause 
LINE-COUNTER to be set to a value in the range from line 
FIRST DETAIL integer-3 through line FOOTING integer-5. 
(This is an exception to the PAGE clause rules governing 
placement of CONTROL HEADING and DETAIL report groups.) 

NEXT GROUP IS NEXT PAGE specifies that no more body groups 
are to be printed on this page. 

For a CONTROL FOOTING group, when the NEXT GROUP clause is 
specified, the spacing is performed only when a control 
break at this level occurs. 



( 



The COLUMN clause specifies the horizontal positioning on the 
printed page of the leftmost character of &r\ elementary item. 

Format 

COLUMN NUMBER IS integer 

The COLUMN clause may be specified only for elementary level 
report group entries. 

Integer must be a positive integer. The value 1 represents the 
leftmost print position on the line; successively higher values 
represent positions successively further right on the line. 

The value of integer must be i n a range that allows the 
associated elementary item to be printed within the print line 
for this report. That is, it may not exceed the implicit or 
explicit RECORD CONTAINS specification minus one (minus two if a 
CODE is used), minus the length of the associated elementary 
i tem. 

If the COLUMN clause is omitted for an elementary entry, the 
elementary entry is not printed at the time its associated 
report group is printed. 

Within a report group and within a specific line, COLUMN entries 
need not be specified in left to right order. 

If the COLUMN clause is specified, thi s entry must also include 
a PICTURE clause and either a SOURCE, SUM, or VALUE clause. 

Figure 71 shows permissible combinations of the COLUMN clause 
and other report group description entries. 



.'f'" 



\^y 



For elementary entries, the PICTURE clause as described in the 
Data Division is applicable. 

When the COLUMN clause is specified, the PICTURE clause must 
also be specified. The combination of COLUMN number 
specification and PICTURE clause description must not exceed the 
limits of the printable line. 

When the COLUMN and PICTURE clauses are specified, either a 
SOURCE, SUM, or VALUE clause must also be specified. 



( 



:J 
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Figure 71 shoMS permissible combinations of the PICTURE clause 
and other report group description entries. 



GROUP INDICATE CLAUSE 



SOURCE CLAUSE 



^^^ 

\uy 



The GROUP INDICATE clause specifies that this entry is to be 
produced only the first time the report group is produced after 
a control break or page break. 

Format 

GROUP INDICATE 

The GROUP INDICATE clause may be specified only for an 
elementary entry in a TYPE DETAIL report group. 

Only the first time after a control break or page break occurs 
is this elementary entry produced. At all other times it is 
suppressed. 

Figure 71 shows permissible combinations of the GROUP INDICATE 
clause and other report group description entries. 

Examples of the use of the GROUP INDICATE Clause are given in 
the Report Writer sample program at the end of this chapter. 



The SOURCE clause specifies a data item whose current value is 
used for this elementary entry. 

Format 

SOURCE IS identifier 

The SOURCE clause is valid only for elementary entries within a 
report group. 

The SOURCE clause specifies a data item that is moved to this 
elementary entry just before this report group is produced. 

Identifier must be one of the following' 

• The name of a data item defined outside the Report Section 

• The name of a SUM counter 

• Any special register that is valid as the sending field in a 
MOVE statement 

Identifier and the elementary report item described in its 
PICTURE clause must conform to the rules for sending items in a 
MOVE statement. 

The SOURCE clause has two functions' 

1. To specify a data item that is to be printed 

2. To specify an item to be summed in a CONTROL FOOTING report 
group (see SUM clause) 

Figure 71 shows permissible combinations of the SOURCE clause 
and other report group description entries. 

For a discussion of special SOURCE clause consi derati ons» see 
the description of the GROUP INDICATE clause. 
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SUN CLAUSE 



The SUM clause establishes an elementary item as the receiving 
field (sum counter) for addition operations upon SOURCE data 
items and other sum counters. 






Format 

SUM identifier-1 [ i denti f i er-23 



[UPON data-name] 



C RESET ON 



r FINAL 1 
< > 

j i denti fier-3 I 

L J 



The SUM clause is valid only at the elementary level within a 
CONTROL FOOTING report group (level-01 or subordinate), and 
establishes this elementary level report group as a sum counter. 

If this report group is named, the data-name represents this sum 
counter in any program reference. When referred to in the 
Report Section, the data-name must not be qualified; when 
referred to in the Procedure Division, it may be qualified by 
the appropriate report-name. If this report group is not 
explicitly referred to within the program, it need not be named. 

Each sum counter report group must contain a numeric or numeric 
edited PICTURE clause of sufficient size to prevent truncation 
of integral digits. Internally, the sum counter is always 
treated as a numeric item; if its PICTURE is numeric edited, the 
editing is performed only upon presentation of this report 
group. 



Identifiei — 1 and identifiei — 2 are SUM clause operands, 
types of operands are allowed: 



Three 



Elementary numeric data items in the File, Working-Storage, 
or Linkage Sections 

Sum counters within any lower level CONTROL FOOTING report 
group for this report 

Sum counters in this CONTROL FOOTING report group 



v./ 



Except when they are sum counters, identifiei — 1 
may be qualified, subscripted, or indexed. 



and identifier-2 



In any summing operation, operands are added in the physical 
order in which they appear in this report group description^ 

• SOURCE data items are subtotaled in this sum counter upon 
each generation of the DETAIL report group in which they are 
specified. (This is called SOURCE/SUM correlation.) If any 
SOURCE data item appears more than once in the DETAIL report 
group, it is added only once to this sum counter. For each 
such data-name, qualification, indexing, or subscripting 
within the SOURCE clause and the SUM clause must be 
identical. 

• Counter rolling is performed; that is, sum counters from 
lower level CONTROL FOOTING report groups are added to this 
sum counter when the lower level CONTROL FOOTING report 
group is presented. 

• Cross footing is performed; that is, sum counters in this 
CONTROL FOOTING report group are added to this sum counter 
before presentation of this CONTROL FOOTING report group. 



UPON data-name option 



This option allows selective summing of particular data items 
named as source items in two or more DETAIL report groups. 



J 
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Data-name must be the name of a DETAIL report group in the same 
report. Data-name may be qualified only by the report-name. 

Identifiei — 1 and identifiei — 2 may be SOURCE data items within 
the data-name report group* or they may be items outside the 
Report Section. 



RESET option 



This option specifies that a sum counter is to be reset to 
only after a control break occurs at the level specified in the 
RESET option. 

Identifiei — 3 must be specified in a CONTROL clause for this 
report* and must name a higher level control than the control 
for this report group. 

Uihen the RESET option is not specified, this sum counter is 
automatically reset to after each presentation of this report 
group. 

When the RESET option is specified* this sum counter is reset to 
only after a control break in identifiei — 3* or after the FINAL 
control break. 



General Considerations 



o 



1. The sum counter is initialized to upon execution of the 
INITIATE statement. 

2. SOURCE operands are subtotaled upon generation of their 
DETAIL report group(s). 

3. Counter rolling is performed before presentation of a 
subordinate sum counter. 

4. Cross footing is performed before presentation of this sum 
counter. 

5. Any USE BEFORE REPORTING procedure for this report group is 
executed. 

6. This report group (if it is not a null group) is presented. 

7. Uhen the RESET option is not specified* the sum counter is 
reset to after presentation of this report group. 

8. Uihen the RESET option is specified* the sum counter is reset 
to after the named higher level control break occurs. 

Figure 71 shows permissible combinations of the SUM clause and 
of the RESET option* and other report group description entries. 



VALUE CLAUSE 



The VALUE clause causes an elementary entry to assume a 
specified value each time the report group is produced. 

Format 



VALUE IS literal 

Uhen the VALUE clause is specified* this elementary entry must 
also contain a PICTURE clause. 

The literal must conform to the PICTURE clause specification. 
For example* if the PICTURE is numeric* the literal must be a 
numeric literal whose size does not exceed the size specified in 
the PICTURE clause. 
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Each time the report group is produced^ the elementary entry 
assumes the value of literal. (Houiever> see the description of 
the GROUP INDICATE clause for special considerations.) 

Figure 71 shoMs permissible combinations of the VALUE clause and 
other report group description entries. 






USAGE CLAUSE 



USAGE DISPLAY must be implicitly or explicitly specified for 
each elementary report group description entry. 

The DISPLAY option of the USAGE clause as described in the Data 
Division is applicable to report group description entries. 



BLANK UHEN ZERO CLAUSE 



JUSTIFIED CLAUSE 



For numeric or numeric edited elementary entries^ the BLANK WHEN 
ZERO clause as described in the Data Division is applicable. 



For alphabetic or alphanumeric elementary entries* the JUSTIFIED 
clause as described in the Data Division is applicable. 



REPORT HRITER — PROCEDURE DIVISION 



OPEN STATEMENT 



INITIATE STATEMENT 



To produce a report, the user must specify the INITIATE, 
GENERATE, and TERMINATE statements in the Procedure Division. 
In addition, a USE BEFORE REPORTING declarative procedure may be 
written to execute special instructions before a heading or 
footing report group is produced. There are also special 
considerations for the OPEN statement (see below). 



Before any Report Writer statement can be executed, the report 
file must be open in the OUTPUT mode. 



The INITIATE statement begins the processing of a report. 

Format 

INITIATE report-name-1 Creport-name-2] ... 

Each report-name must be defined by an RD entry in the Data 
Division Report Section. 

Execution of the INITIATE statement does the following^ 

• Initializes all SUM counters to 

• Sets up all TYPE CONTROL HEADING and/or TYPE CONTROL FOOTING 
items in the proper order, as defined by the user 

• When the PAGE clause is specified^ 

Initializes this PAGE-COUNTER to 1 
Initializes this LINE-COUNTER to 

• Initializes the PRINT-SWITCH to 

An INITIATE statement for a report must be executed after the 
OPEN statement for the report file, and before the first 
GENERATE statement for this report. 
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A second INITIATE statement for this report must not be executed 
before a subsequent TERMINATE statement for this report has been 
executed. 



GENERATE STATEMENT 



The GENERATE statement causes a report to be produced in the 
format specified in the Report Section. 

Format 

{ data-name I 

GENERATE < > 

I report-name | 

L J 

Data-name must specify a TYPE DETAIL report group. 

Report-name must specify the name of an RD entry. Report-name 
must be unique. 

Uihen the data-name option is specified^ detail reporting is 
performed. When report-name is specified, summary reporting is 
performed. Both detail and summary reporting for the same 
report may be specified within one execution of a Report Writer 
program. 



Detail Reporting 






In detail reporting, at least one TYPE DETAIL report group must 
be specified. Execution of the GENERATE statement produces this 
TYPE DETAIL report group, and performs all the automatic 
operations of the Report Writer as specified in the report group 
description entries. (See "Automatic Operations of the GENERATE 
Statement," following.) 



Summary Reporting 



In summary reporting, the GENERATE statement performs all of the 
automatic operations of the Report Writer, as specified in the 
report group description entries, but does not produce any TYPE 
DETAIL report groups. (See "Automatic Operations of the 
GENERATE Statement" following.) 

In summary reporting, a TYPE DETAIL report group need not be 
specified. (Note, however, that in this case sum counters are 
never incremented.) 

If more than one TYPE DETAIL report group is specified, all SUM 
counters are algebraically incremented as if successive GENERATE 
statements were issued for each TYPE DETAIL report group — and in 
the order in which the TYPE DETAIL report groups appear in the 
report group description entries. 

No matter how many TYPE DETAIL report groups are present, only 
one control break test is made; the test is made before summary 
reporting is performed. 



Automatic Operations of the GENERATE statement 



When the GENERATE statement is executed, the following actions 
take place. 

For the first GENERATE statement in the program^ 

1. REPORT HEADING report group is produced. 

2. PAGE HEADING report group is produced. 
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3. CONTROL HEADING FINAL through CONTROL HEADING minor report 
groups are produced, in this order. 

^. For detail reporting only, the specified TYPE DETAIL report 
group is produced. 

(Figure 73 shouis the sequence of operations for the first 
GENERATE statement.) 



"A 



main line 

COBOL 

program 



GENERATE 
(next 

sequential 
instruction) 



write (as 
specified) 
RH, PH, 
CH FINAL 



write (as 
specified) 
CH major - 
CH minor 




write 

DETAIL 

line 



Figure 73. First GENERATE Statement — Sequence of Operations 



For subsequent GENERATE statements in the program^ 

1. Appropriate CONTROL FOOTING and/or CONTROL HEADING report 
groups arG produced upon recognition of the specified 
control breaks. 

2. Any specified USE BEFORE REPORTING declarative procedures 
are executed before the associated report group is produced. 

3. For detail reporting only, the specified TYPE DETAIL report 
group is produced. 

<i. If the PAGE clause is specified, the LINE-COUNTER for this 
report is incremented after each report group is produced. 
Before the next report group is produced, the LINE-COUNTER 
is tested, and, when necessary, PAGE FOOTING and/or PAGE 
HEADING report groups are produced, and PAGE-COUNTER is 
incremented. 

5. SUM operands are incremented. 

6. Sum counters are reset as specified. 

Figure 74 shows the sequence of operations for subsequent 
GENERATE statements. 

Uhen a control break is recognized, control groups (when 
specified) are produced in the order specified in the CONTROL 
clause. 

Under Report Writer control, data is moved into the report group 

entry and is edited according to the rules for the MOVE 

statement (see MOVE Statement description in "Procedure 
Division"). 



i^"""\ 
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main line 

COBOL 

program 



GENERATE 
(next 

sequential 
instruction) 




o 



NO 



add SUM op- 
erands up to 
this control 
level £ save 



save new 

control 

values 



write control 
footings — 
minor to this 
level, using 
old values 



reset SUM op- 
erands up to 
this control 
level 



write control 
headings — 
this level to 
minor, using 
new values 



set controls 
to new values 




write 

DETAIL 

line 



add all 

SUM 

operands 



If a USE BEFORE REPORTING Declarative is specified, 
it is executed just before its associated control 
group is produced, whether or not a control break 
or page break occurred. 



Note ; When the PAGE clause is specified, the 
following steps are executed before each print- 
able body group is produced. 



( Enter j 




<next group ^NO 
fits page?^ 




write 

page 

footing 



advance page 
6 increment 
PAGE-COUNTER 



write 

page 

heading 



J 

( Return j 



Figure 74. Subsequent GENERATE Statements — Sequence of Operations 
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TERMINATE STATEMENT 



The TERMINATE statement completes the processing of a report. 

Format 

TERMINATE report-name-1 [report-name-"2] . . . 

Each report-name must be defined by an RD entry in the Data 
Division Report Section. 

Execution of the TERMINATE statement does the following^ 

• Adds all SUM operdnds> and saves their values 

• Saves current values of all control items 

• Produces all CONTROL FOOTING report groups as if a control 
break at the highest level has just occurred 

• Resets all control items to their current values (that is, 
their values at the time the TERMINATE statement is 
executed) 

• Produces the CONTROL FOOTING FINAL report group 

• Produces the specified PAGE FOOTING and/or PAGE HEADING 
report groups if a page break has occurred 

• Produces the REPORT FOOTING report group 

(Any SOURCE items specified in CONTROL FOOTING FINAL or REPORT 
FOOTING report groups refer to their values at the time the 
TERMINATE statement is executed.) 

Figure 75 shoMS the sequence of operations for the TERMINATE 
statement. 

A TERMINATE statement must be executed ±o,^complete the ^ 

processing of a report. A second TERMINATE s^a4eineivfe^'To? this 
report must not be executed before a subsequent INITIATE 
statement for this report has been executed. 

The TERMINATE statement does not close the report file; a CLOSE 
statement must be issued after the TERMINATE statement is 
executed. 

If, at object time, no GENERATE statement is executed for this 
report, the TERMINATE statement produces no report groups, and 
does not perform SUM processing. 

Because it forces and processes control breaks, a TERMINATE 
statement accesses all the data items that uere specified as 
controls for the report. Also, in preparing headings and 
footings for presentation as a result of the forced control 
breaks, TERMINATE accesses the data items specified as SOURCE or 
SUM operands in those headings and footings. Therefore, the 
control data items and SOURCE/SUM operands must be available at 
the time the TERMINATE statement is executed. 

For example, if the control or SOURCE/SUM data items are in a 
data record of a file or in a sort record, the record must be 
available when TERMINATE is executed. Input areas should not be 
used as control variables, because input areas are not available 
until following end-of-file. It is the user's responsibility to 
ensure that such data items are available. 






( 



.,./ 



280 IBM VS COBOL for OS/VS 



o 






main line 

COBOL 

program 

• 

• 

• 

TERMINATE 
(next 

sequential 
instruction) 


















add all SUM 
operands S 
save 




save new 

control 

values 




write control 
footings -- 
minor to 
major, using 
old values 




















1 










' 






set controls 
to new values 






'' 






reset SUM 
operands up 
to major 
level 














" 






produce 
RF group 




produce 
PF group* 


* 


produce 
CF FINAL 










group 



*- omitted if there is 
no PAGE clause 



Figure 75. TERMINATE Statement — Sequence of Operations 



USE BEFORE REPORTING SENTENCE 



The USE BEFORE REPORTING sentence identifies Declarative 
procedures to be executed just before a specified heading or 
footing report group is produced. 

Format 

USE BEFORE REPORTING data-name. 

The USE BEFORE REPORTING sentence, when specified, must 
immediately follow a section header in the Declaratives portion 
of the Procedure Division (see the description of Declaratives 
in "Procedure Division"), and must immediately be followed by a 
period followed by a space. 
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Print Suppression 



The remainder of this declaratives section consists of one or 

more procedural paragraphs that define the procedures to be 

executed. '4 / 



The USE BEFORE REPORTING sentence is never executed; it simply 
defines the condition that causes execution of this Declaratives 
section. 

Data-name identifies a heading or footing report group, and must 
not appear in more than one USE BEFORE REPORTING sentence. 

The procedures specified in this Declaratives section are 
executed just before the data-name report group is produced* 
regardless of any associated page or control breaks. 

The Declaratives procedure may consist of any COBOL procedural 
statements, with the following restri ct i ons^ 

• No Report Writer statement (INITIATE, GENERATE, TERMINATE) 
may be specified. 

• There must be no reference to any nondeclarati ve procedures. 

In the nondeclarati ves portion of the Procedure Division, 
PERFORM statements may refer to procedure-names in the 
Declaratives portion; no other references to Declaratives 
procedures may be made. 



The PRINT-SWITCH allows the user to suppress printing of a 
specific execution of a specific heading or footing report 
group. 

Format ,<^">x 

MOVE i 10 PRINT-SWITCH ^"^ 

In a Declaratives procedure, when MOVE 1 TO PRINT-SWITCH is 
specified, this report group is not printed when the statement 
is encountered; the statement must be executed for each 
presentation of each report group whose printing is to be 
suppressed. 

When MOVE 1 TO PRINT-SWITCH is encountered, the following 
actions take place: 

• This execution of this report group is not printed. 

• The LINE-COUNTER is not altered. 

• If a NEXT GROUP clause appears in this report group, its 
action is nullified. 

• After the previous actions are taken, PRINT-SWITCH is reset 
to 0. 



REPORT URITER SPECIAL REGISTERS 



Special registers PAGE-COUNTER and LINE-COUNTER are numeric 
counters generated by the Report Writer, and do not require data 
description clauses. Both PAGE-COUNTER and LINE-COUNTER can be 
used as SOURCE data items for elementary report group entries. 

One PAGE-COUNTER and one LINE-COUNTER is generated for each 
report whose RD entry contains a PAGE clause. If there is more 
than one such report in a program, each reference to 
PAGE-COUNTER or a LINE-COUNTER must be qualified by the 
report-name. 

Internally, both PAGE-COUNTER and LINE-COUNTER are 3-byte 
COMPUTATIONAL-3 items. When printed, each is produced to 



\.J^ 
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PAGE-COUNTER 



LINE-COUNTER 






conform to the PICTURE clause of the entry for which it is a 
SOURCE item. 



The PAGE-COUNTER special register can be used to present the 
page number on a report line. 

PAGE-COUNTER can be used as a SOURCE data item for elementary 
report group description entries. If more than one PAGE-COUNTER 
is so used> the PICTURE clauses of the report group description 
entries must be identical, and large enough to prevent overflow. 

PAGE-COUNTER can be referred to, and its value can be modified 
in Procedure Division statements. 

After an INITIATE statement, PAGE-COUNTER contains the value 1, 
and each time a page break is recognized it is automatically 
incremented by 1 after all PAGE FOOTING report groups are 
produced and before all PAGE HEADING report groups are produced. 

If the user wants report pages to begin at a value other than 
one, the user can change the contents of PAGE-COUNTER after the 
INITIATE Statement is executed. 



The Report Writer uses the LINE-COUNTER special register to 
determine when PAGE HEADING and/or PAGE FOOTING report groups 
are to be presented. 

LINE-COUNTER can be used as a SOURCE data item in elementary 
report group entries. 

LINE-COUNTER can be referred to, and its value can be modified, 
in Procedure Division statements. Note, however, that if the 
value in LINE-COUNTER is modified. Report Writer page format 
control may become unpredictable. 

After an INITIATE statement, LINE-COUNTER contains the value 0. 
LINE-COUNTER is automatically tested and incremented by the 
Report Writer according to PAGE clause specifications, and the 
values specified in LINE and NEXT GROUP clauses. 

The value contained in LINE-COUNTER during any Procedure 
Division test represents either: 

♦ The last line produced by a previously generated report 
group, or 

• The number of the last line skipped to by a previous NEXT 
GROUP clause specification 

During execution, each time a page break occurs, LINE-COUNTER is 
reset to 0, except when an absolute LINE NUMBER or NEXT GROUP 
specification is less than or equal to the LINE-COUNTER value. 
When this occurs, after execution of the specified report groups 
a page break occurs and LINE-COUNTER is reset to the value 
specified in the absolute LINE or NEXT GROUP clause. 

Successive report groups or report lines cannot be printed on 
the same line of the same page. 



REPORT MRITER SAMPLE PROGRAH 



This program is run after the close of the last working day of 
each month of the year. It supplies a record of purchases made 
by the Acme Manufacturing Company during the current year. 
Detail purchases for the current month are reported. For 
previous months, only a summary of each day's purchases is 
reported. In addition, a summary of the total number and amount 
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of purchases is presented for each month* each quarter* and for 
the year to date. 

INFILE* the input file* is an indexed VSAM file of the current 
year's purchases ordered on the invoice number of each purchase* 
with alternate ordering both on the date of purchase and on 
department. (This same file is used for report programs other 
than the one illustrated here.) INFILE is created via a remote 
terminal from the comptroller's office; after each purchase 
order is signed by the comptroller* details of the purchase are 
added to the file from the terminal. 

REPORT-FILE* the output file* is a physical sequential file* 
assigned to the printer. 



i 



■> 
.y 



000005 
000010 
000015 
000020 
000025 
000030 
000035 
0000<^0 
000045 
000050 
000055 
000060 
000065 
000070 
000075 
000080 
000085 
000090 
000095 
000100 
000110 
000115 
000120 
000125 
000130 
000135 
000140 
000145 
000150 
000155 
000160 
000165 
000170 
000175 
000180 
000185 
000190 
000195 
000200 
000205 
000210 
000215 
000220 
000225 
000230 
000235 
000240 
000245 
000250 
000255 



IDENTIFICATION DIVISION. 

PROGRAM-ID. ACME. 

REMARKS. THE REPORT WAS PRODUCED BY THE REPORT WRITER 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-370. 

OBJECT-COMPUTER. IBM-370. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT INFILE ASSIGN TO SYS123 
ORGANIZATION IS INDEXED 
ACCESS IS DYNAMIC 

RECORD KEY IS ORDER-NO PASSWORD IS DEPT-PASS 
ALTERNATE RECORD KEY IS DATE-PURCHASE 

WITH DUPLICATES 
ALTERNATE RECORD KEY IS DEPT 

WITH DUPLICATES 
FILE STATUS IS SK. 
SELECT REPORT-FILE ASSIGN TO SYS124. 
DATA DIVISION. 
FILE SECTION. 
FD INFILE 

LABEL RECORDS ARE STANDARD 
DATA RECORD IS INPUT RECORD. 
01 INPUT-RECORD. 

X(6). 
X(3). 






05 
05 
05 



ORDER-NO PIC 

DEPT PIC 

DATE-PURCHASE. 

10 MM PIC 99. 

10 DD PIC 99. 

10 YY PIC 99. 
05 NO-PURCHASES PIC 99. 
05 TYPE-PURCHASE PIC X. 
05 COST PIC 999V99. 

05 FILLER PIC X(57). 
FD REPORT-FILE 

LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 121 CHARACTERS 
REPORT IS EXPENSE-REPORT. 
WORKING-STORAGE SECTION 



77 SAVED-MONTH 

77 CONTINUED 

77 QUARTER-END 

77 MONTH-END 

77 DEPT-PASS 

77 QUARTER 

77 QRT-PASS 

77 REM 

77 SK 

77 PRINT-HDG-SW 



PIC 9(2) 
PIC X(ll) 
PIC X(7) 
PIC X(7) 
PIC X(8) 
PIC 9 
PIC 9 
PIC 9 
PIC 9(2) 
PIC X(l) 



VALUE ZERO. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE SPACES. 
VALUE ZERO. 
VALUE ZERO. 
VALUE ZERO. 
VALUE ZERO. 
VALUE SPACE. 
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000260 
000265 
000270 
000275 
000280 
000285 
000290 
000295 
000300 
000305 
000310 
000315 
000320 
000325 
000330 
000335 
000340 
000345 
000350 
000355 
000360 
000365 
000370 
000375 
000380 
000385 
000390 
000395 
000400 
000405 
000410 
000415 
000420 
000425 
000430 
000435 
000440 
000445 
000450 
000455 
000460 
000465 
000470 
000475 
000480 
000485 
000490 
000495 
000500 
000505 
000510 
000515 
000520 
000525 
000530 
000535 
000540 
000545 
000550 
000555 
000560 
000565 
000570 
000575 
000580 
000585 
000590 
000595 
000600 
000605 
000610 
000615 
000620 
000625 



VALUE 


"JANUARY 


Tf 


VALUE 


"FEBRUARY 


Tl 


VALUE 


"MARCH 


»f ^ 


VALUE 


"APRIL 


If 


VALUE 


"MAY 


n ^ 


VALUE 


"JUNE 


fi ^ 


VALUE 


"JULY 


If 


VALUE 


"AUGUST 


If 


VALUE 


"SEPTEMBER". 


VALUE 


"OCTOBER 


n 


VALUE 


"NOVEMBER 


tf 


VALUE 


"DECEMBER 


ff 



01 TODAYS-DATE. 

05 YR PIC 99. 

05 MO PIC 99. 

05 DA PIC 99. 

01 QUARTER-NAMES VALUE "1ST2ND3RD4TH". 
05 QUARTERNAME PIC X(3) OCCURS 4. 
01 DATE-USED. 

05 THIS-CENT PIC XX. 
05 THIS-YEAR PIC XX. 
05 FILLER PIC XXX VALUE " IS ". 
01 MONTH-TABLE-1. 

05 RECORD-MONTH. 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 

10 FILLER PIC X(9) 
05 RECORD-AREA REDEFINES RECORD-MONTH. 

10 MONTHNAME PIC X(9) OCCURS 12 TIMES. 
REPORT SECTION. 
RD EXPENSE-REPORT 

CONTROLS ARE FINAL QUARTER MM DD 
PAGE LIMIT IS 59 LINES 
HEADING 1 
FIRST DETAIL 9 
LAST DETAIL 52 
FOOTING 56. 
01 TYPE IS REPORT HEADING. 
05 LINE NUMBER IS 2 

COLUMN NUMBER IS 27 

PIC X(26) VALUE "ACME MANUFACTURING COMPANY". 
05 LINE NUMBER IS 3 

COLUMN NUMBER IS 26 

PIC X(27) VALUE "RUNNING EXPENDITURES REPORT". 
01 PAGE-HEAD 

TYPE IS PAGE HEADING. 
05 LINE NUMBER IS 6. 

10 COLUMN 30 PIC X(9) 

10 

10 
05 LINE IS 8. 

10 COLUMN 2 PIC X(35) 

"MONTH DAY DEPT NO-PURCHASES" 

10 COLUMN 40 PIC X(33) 

"TYPE COST CUMULATIVE-COST". 
01 DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 1. 
05 COLUMN 2 PIC X(9) SOURCE MONTHNAME (MM) 

GROUP INDICATE. 

COLUMN 13 PIC 9(2) SOURCE IS DD 

GROUP INDICATE. 

COLUMN 19 PIC X(3) SOURCE IS DEPT. 

COLUMN 31 PIC Z9(l) SOURCE IS NO-PURCHASES. 

COLUMN 42 PIC X(l) SOURCE IS TYPE-PURCHASE. 

COLUMN 50 PIC ZZ9.99 SOURCE IS COST. 
01 TYPE IS CONTROL FOOTING DD. 
05 LINE NUMBER IS PLUS 2. 

10 COLUMN 2 PIC X(22) 

VALUE "PURCHASES AND COST FOR". 



SOURCE MONTHNAME (MM). 
COLUMN 39 PIC X(13) VALUE "EXPENDITURES". 
COLUMN 53 PIC X(ll) SOURCE CONTINUED. 
: IS 8. 
COLUMN 
VALUE 
COLUMN 
VALUE 



05 

05 
05 
05 
05 



10 


COLUMN 


24 


PIC 


Z9 


SOURCE 


SAVED-MONTH 


10 


COLUMN 


26 


PIC 


X 


VALUE "-". 


10 


COLUMN 


27 


PIC 


99 


SOURCE 


DD. 


10 


COLUMN 


30 


PIC 


ZZ9 


SUM NO- 


-PURCHASES. 


10 


MIN 














COLUMN 


49 


PIC 


$$$9 


.99 SUM 


COST. 


10 


COLUMN 


65 


PIC 


$$$9 


.99 SUM 


COST 



RESET ON FINAL. 
05 LINE PLUS 1 COLUMN 2 PICTURE X(71) 
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000630 

000635 

000640 

000645 

000650 

000655 

000660 

000665 

000670 

000675 

000680 

000685 

000690 

000695 

000700 

000705 

000710 

000715 

000720 

000725 

000730 

000735 

000740 

000745 

000750 

000755 

000760 

000765 

000770 

000775 

000780 

000785 

000790 

000795 

000800 

000805 

000810 

000815 

000820 

000825 

000830 

000835 

000840 

000845 

000850 

000855X 

000856)( 

000860 

000865 

000870 

000875 

000880 

000890 

000895 

00 900 

000905 

000910 

000915 

000920 

000925 

000930 

000935 

000940 

000945 

000950 

000955 

000960 

000965 

000970 

000975 

000 980 

000985 

000990 

000995 



05 
05 
05 



05 
05 

05 

05 

05 

05 



05 
05 



05 



VALUE ALL "x". 
01 MM-FOOT TYPE CONTROL FOOTING MM 
LINE PLUS 1 NEXT GROUP NEXT PAGE. 

05 COLUMN 16 PIC X(14) VALUE "TOTAL COST FOR" 
COLUMN 31 PIC X(9) SOURCE MONTHNAME (MM). 
COLUMN 43 PIC X(7) SOURCE MONTH-END. 
INT 

COLUMN 50 PIC $$$$9.99 SUM MIN. 
01 QUARTER-FOOT TYPE CONTROL FOOTING QUARTER 
LINE PLUS 4 NEXT GROUP NEXT PAGE. 
COLUMN 5 PIC X(IO) VALUE ALL "X". 
COLUMN 16 PIC X(15) 
VALUE "TOTAL COST FOR ". 
COLUMN 31 PIC X(3) 
SOURCE QUARTERNAME (QUARTER). 
COLUMN 34 PIC X(9) 
VALUE "QUARTER". 
COLUMN 43 PIC X(7) 
SOURCE QUARTER-END. 
COLUMN 51 PIC $$$$9.99 
SUM INT. 
01 FINAL-FOOT TYPE CONTROL FOOTING FINAL 
LINE NEXT PAGE. 
COLUMN 16 PIC X(20) 
VALUE "TOTAL COST FOR YEAR ". 
COLUMN 36 PIC X(8) 
SOURCE DATE-USED. 
COLUMN 44 PIC $$$$9.99 
SUM INT. 
01 TYPE PAGE FOOTING LINE 57. 

05 COLUMN 59 PIC X(12) VALUE "REPORT-PAGE-". 
05 COLUMN 71 PIC 9(3) SOURCE PAGE-COUNTER. 
01 TYPE REPORT FOOTING 

LINE PLUS 1 COLUMN 32 PIC X(13) 
VALUE "END OF REPORT". 
PROCEDURE DIVISION. 
DECLARATIVES. 
PAGE-HEAD-RTN SECTION. 

USE BEFORE REPORTING PAGE-HEAD. 
PAGE-HEAD-RTN-TEST. 

IF MM NOT = SAVED-MONTH 

MOVE "(CONTINUED)" TO CONTINUED 
ELSE 

MOVE SPACES TO CONTINUED 
MOVE MM TO SAVED MONTH 
TO SUPRESS PRINTING OF HEADINGS FOR QUARTER AND 
FINAL FOOTING 

IF PRINT-HDG-SW = "N" 
MOVE SPACE TO PRINT-HDG-SW 
MOVE 1 TO PRINT-SWITCH. 
PAGE-HEAD-RTN-EXIT. 

EXIT. 
MM-FOOT-RTN SECTION. 

USE BEFORE REPORTING MM-FOOT. 
MM-FOOT PROCESS. 
IF YR > YY 

MOVE "WAS" 
ELSE 

IF MO > MM 

MOVE "WAS" 
ELSE 

MOVE "TO DATE" TO MONTH-END. 
MM-FOOT-RTN-EXIT. 

EXIT. 
QUARTER-FOOT-ROUTINE SECTION. 

USE BEFORE REPORTING QUARTER-FOOT. 
QUARTER-FOOT-PROCESS . 

IF LINE-COUNTER > 52 

MOVE "N" TO PRINT-HDG-SW. 
IF YR > YY 

MOVE "WAS " TO QUARTER-END 
ELSE 

IF (QUARTER = QRT-PASS) and (MM NOT = MO) 
MOVE "WAS" TO QUARTER-END 



,0 






TO MONTH-END 



TO MONTH-END 



c 
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TO QUARTER-END. 



001000 ELSE 

001005 MOVE "TO DATE" 

001010 QUARTER-FOOT-PROCESS-END. 

001015 EXIT. 

001020 FINAL-FOOT-ROUTINE SECTION. 

001025 USE BEFORE REPORTING FINAL-FOOT. 

001030 FINAL-FOOT-PROCESS. 

001035 IF YR > YY 

001040 MOVE "19" TO THIS-CENT 

001045 MOVE "YY" TO THIS-YEAR 

001050 ELSE MOVE "TO DATE" TO DATE-USED. 

001051 MOVE "N" TO PRINT-HDG-SW. 
001055 FINAL-FOOT-PROCESS-END. 
001060 EXIT. 

001065 END DECLARATIVES. 

001070 NONDECLARATIVES SECTION. 

001075 BEGIN-PROCESS. 

001080 ACCEPT DEPT-PASS FROM SYSIN. 

001085 ACCEPT TODAYS-DATE FROM DATE. 

001090 OPEN INPUT INFILE OUTPUT REPORT-FILE. 

001095 IF SK NOT = "00" GO TO EXCEPTION-2. 

001100 START INFILE KEY NOT LESS THAN DATE-PURCHASE. 

001105 INITIATE EXPENSE-REPORT. 

001110 READATA. 

001115 READ INFILE NEXT. 

001120 IF SK NOT = "00" GO TO EXCEPTION-1 . 

001125 IF MM NOT = SAVED-MONTH 

001130 PERFORM QUARTER-CALC-1 THRU QUARTER-CALC-END. 

001135)()« THE FOLLOWING STATEMENTS COMMENTED OUT KX 

001136^)^ CAN BE INCLUDED ^^ 

001140KX IF A SUMMARY FOR A DAY'S PURCHASES ISxx 

001141XX PREFERABLE TO AN XX 

001145XX INDIVIDUAL LISTING OF THESE PURCHASES. xx 

001146XX THE SEQUENCE OF ^x 

001150XX PROCESSING FOR DETAIL REPORTING ISXX 

001151XX SLIGHTLY DIFFERENT xx 

001155XX FROM THAT OF SUMMARY REPORTING. HENCE, xx 

001156XX THE DECLARATIVE J(X 

001160XX SECTION MAY HAVE TO BE ALTERED TO ALLOW xx 

001161XX FOR USE OF THE XX 

001165XX SUMMARY REPORTING. xx 

001170X IF MM - MO 

001175X ALTER SWITCH-PARA TO PROCEED TO DETAIL-REPORT. 

001180X SWITCH-PARA. 

001185X GO TO SUMMARY-REPORT. 

001190X SUMMARY-REPORT. 

001195X GENERATE EXPENSE-REPORT. 

001200X GO TO READATA. 

001205 DETAIL-REPORT. 

001210 GENERATE DETAIL-LINE. 

001215 GO TO READATA. 

001220 QUARTER-CALC-1. 

001225 DIVIDE MM BY 3 GIVING REMAINDER REM. 

001230 MOVE QUARTER TO QRT-PASS. 

001235 IF REM NOT = 

001240 ADD 1 TO QUARTER. 

001245 QUARTER-CALC-END. 

001250 EXIT. 

001255 EXCEPTION-1. 

001260 MOVE "N" TO PRINT-HDG-SW. 

001265 TERMINATE EXPENSE-REPORT. 

001270 IF SK = "10" GO TO END-PROGRAM. 

001275 DISPLAY "INPUT RECORD = " INPUT-RECORD UPON CONSOLE, 

001280 EXCEPTION-2. 

001285 DISPLAY "STATUS KEY = " SK UPON CONSOLE. 

001290 DISPLAY "SAVE CONSOLE SHEET" UPON CONSOLE. 

001295 END-PROGRAM. 

001300 CLOSE INFILE REPORT-FILE. 

001305 STOP RUN. 



End of IBM Extension 
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SEGMENTATION FEATURE 



O- 



The Segmentation feature provides programmer-controlled storage 
optimization of the Procedure Division* by alloMing that 
division to be subdivided* both physically and logically. 



SEGMENTATION CONCEPTS 



PROGRAM SEGMENTS 



Fixed segments 



Although it is not required* the Procedure Division of a source 
program is usually written as a consecutive group of sections* 
each of which is made up of a series of related operations that 
perform a particular function. Because of this the entire 
Procedure Division is made up of a number of logical 
subdivisions. Segmentation allows the programmer to physically 
divide the Procedure Division into segments* each of which has 
specific physical and logical attributes. 

Ulhen Segmentation is used* the entire Procedure Division must be 
divided into sections. Each section must then be classified as 
to its physical and logical attributes* through a system of 
pri ori ty-numbers . All sections given one priority-number make 
up one program segment. 

Priority numbers must be in the range from through 99. 



There are three types of program segments^ 
fixed overlayable* and independent. 



fixed permanent* 



A fixed permanent segment is always physically present during 
object program execution (that is* it cannot be overlaid* except 
when the system is executing another program). A fixed segment* 
thus* is always made available in its last-used state. 

A fixed overlayable segment is logically always in storage 
during object program execution* therefore* it is always 
available in its last-used state. Any overlay of such a segment 
is transparent to the user. Thus* a fixed overlayable segment 
is logically identical with a fixed permanent segment. 

Fixed permanent segments and fixed overlayable segments make up 
the fixed portion ; that is* that part of the Procedure Division 
which is logically treated as if it were always physically 
present in virtual storage. Fixed-portion priority-numbers must 
be in the range through 49. 






Independent Segments 



an i ndependent 



Logically* 

other segments during object 



segment can overlay and be overlaid by 
program execution. 



An independent segment is made available in its initial state 
the first time control is passed to it (explicitly or 
implicitly) during object program execution. 



An independent segment is made available in its 
during subsequent transfers of control wheni 



initial state 



The transfer is the result of an implicit transfer of 
control between consecutive statements from a segment with a 
different priority-number (that is* when control drops 
through into the independent segment from the physically 
preceding segment). 
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• The transfer is the result of an implicit transfer to a SORT 
input procedure or SORT/MERGE output procedure in an 
independent segment from a SORT or MERGE statement in a 
segment with a different priority. 

• An explicit transfer of control from a section with a 
different priority-number takes place (as» for example^ 
during the transfer of control in a PERFORM n TIMES 
statement) . 

An independent segment is made available in its last-used state 
during subsequent transfers of control wheni 

• With the two preceding exceptions^ an implicit transfer from 
a section with a different priority takes place (as» for 
example^ when control is returned to the independent segment 
from a Declarative procedure). 

• An explicit transfer results from an EXIT PROGRAM statement. 
I IBM Extension 1 



An explicit transfer results from a GOBACK statement. 
End of IBM Extension 



Independent segments must be assigned priority-numbers in the 
range from 50 through 99. 

Note: The segmentation rules for control transfers to and from 
independent segments as previously implemented are given under 
"PERFORM Statement in Segmented Programs" in Appendix ^, "IBM 
Full ANS COBOL Items — (IBM Extension)." 



o 



SEGMENTATION LOGIC 



In a segmented program^ the sections are classified by a system 
of pri ori ty-numbersf using the following criteria^ 

• Frequency of Reference — Much-used sections^ or those which 
must be available for reference at all times^ should usually 
be within fixed permanent segments. Less frequently used 
sections should usually be within either fixed overlayable 
or independent segments^ depending on the program logic. 

• Frequency of Use — The more frequently a section is referred 
to» the lower its priority-number; the less frequently it is 
referred to, th^ higher its priority-number. 

• Logical Relationships — Sections which frequently communicate 
with each other should be given identical priority-numbers. 



SEGMENTATION CONTROL 



o 



Except for specific transfers of control » the logical sequence 
and the physical sequence of program instructions is the same. 
When segmentation is used^ reordering of the object module may 
be necessary to handle the flow of control from segment to 
segment, since a given segment may have its sections scattered 
throughout the Procedure Division of the source program. 

When the object module is thus reordered, the compiler provides 
control transfers to maintain the logic flow of the source 
program. The compiler also inserts any instructions necessary 
to initialize a segment. 

It is not necessary to transfer control to the beginning of a 
segment, or to the beginning of a section within a segment. 
Instead, control may be transferred to any paragraph in the 
Procedure Division. 
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COBOL SOURCE PROGRAM CONSIDERATIONS 

Two elements of a COBOL source program implement the jf 

Segmentation feature 5 \...J^ 

1. The SEGMENT-LIMIT clause in the OBJECT-COMPUTER paragraph of 
the Environment Division. This clause allows the programmer 
to control the specification of fixed permanent and fixed 
overlayable segments. 

2. Procedure Division pri ori ty-numbers ^ which group sections 
into segments. The priority-numbering scheme also allows 
specification of independent segments^ fixed permanent 
segments^ and (in conjunction with the SEGMENT-LIMIT Clause) 
fixed overlayable segments. 

SEGMENTATION — ENVIRONMENT DIVISION 

In the OBJECT-COMPUTER paragraph, the SEGMENT-LIMIT clause 
allows the user to reduce the number of fixed permanent 
segments, while retaining the properties of fixed portion 
segments. 

Format 

SEGMENT-LIMIT IS priority-number 

The SEGMENT-LIMIT clause allows the programmer to specify 

certain permanent segments as capable of being overlaid by 

independent segments while still retaining the logical 
properties of fixed portion segments. 

Priority-number must be an integer ranging in value from 1 
through 49. 

When the SEGMENT-LIMIT clause is specified: 

• Fixed permanent segments are those with priority-numbers 
ranging from up to, but not including, the specified 
priority-number. 

• Fixed overlayable segments are those with priority-numbers 
ranging from that specified through 49, inclusive. 

For example, if SEGMENT-LIMIT IS 25 is specified, sections with 
priority-numbers through 24 are fixed permanent segments, and 
sections with priority-numbers 25 through 49 are fixed 
overlayable segments. 

When the SEGMENT-LIMIT clause is omitted, all sections with 
priority-numbers from through 49 are fixed permanent segments. 

SEGMENTATION — PROCEDURE DIVISION 

In the Procedure Division of a segmented program, section 
classification is specified through priority-numbers in the 
section headers. 

Format 

section-name SECTION [priority-number]. 

All sections with the same priority-number make up one program 
segment. Such sections need not be contiguous in the source 
program. 

The priority-number must be an integer in the range from 
through 99. 

Segments with priority-numbers through 49, inclusive, are in 
the fixed portion of the object program. Declarative sections 
may be assigned only to these priority-numbers. 
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Segments with priority-numbers in the range from 50 through 99 » 
inclusive^ are independent segments. 

If the priority-number is omitted from the section header » the 
pr i or itynumber is assumed to be 0. 



SEGMENTATION — SPECIAL CONSIDERATIONS 



ALTER STATEMENT 



When segmentation is usedr there are restrictions on the ALTER» 
PERFORM, MERGE, and SORT statements. 

There are also special considerations for calling and called 
programs. 

These are all detailed below. 



A GO TO statement in an independent segment must not be referred 
to by an ALTER statement in a different segment. All other uses 
of the ALTER statement are valid and are performed, even if the 
GO TO statement referred to is in a fixed overlayable segment. 



PERFORM STATEMENT 






A PERFORM statement in the fixed portion can have in its range, 
in addition to any Declarative procedures whose execution is 
caused within that range, only one of the following^ 

• Sections and/or paragraphs in the fixed portion 

• Sections and/or paragraphs contained within a single 
independent segment 

A PERFORM statement in an independent segment can have within 
its range, in addition to any Declarative procedures whose 
execution is caused within that range, only one of the 
f ollowi ng! 

• Sections and/or paragraphs in the fixed portion 

• Sections and/or paragraphs wholly contained in the same 
independent segment as the PERFORM statement 



IBM Extension 



However, this IBM implementation allows any PERFORM statement to 
have sections with any priority-numbers within its range of 
procedures. 



End of IBM Extension 



SORT AND MERGE STATEMENTS 



If a SORT or MERGE statement appears in the fixed portion, then 
any SORT input procedures or SORT/MERGE output procedures must 
appear completely in one of the following* 

• The fixed portion 

• In one independent segment 
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If a SORT or MERGE statement appears in an independent segments 
then any SORT input procedures or SORT/MERGE output procedures 
must appear completely in one of the following^ 

• The fixed portion 

• The same independent segment as the SORT or MERGE statement 

I IBM Extension 1 



.^ 



However/ this IBM implementation allows a SORT or MERGE 
statement to have sections with any priority-numbers within an 
input and/or output procedure. 



End of IBM Extension 



CALLING AND CALLED PROGRAMS 



The CALL statement may appear anywhere within a segmented 
program. When a CALL statement appears in an independent 
segment, that segment is in its last-used state when control is 
returned to the calling program. 

A called program may be segmented. 



( 






G 
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SOURCE PROGRAM LIBRARY 



COPY STATEMENT 



Prewritten source program entries can be included in a source 
program at compile time. Thus, an installation can use standard 
file descri pti ons/ record descri pti ons» or procedures without 
receding them. These entries and procedures can then be saved 
in usei — created libraries; they can then be included in the 
source program by means of the COPY statement. 



The COPY statement places prewritten text in a COBOL program. 
Format 






COPY text-name C < > library-name] 

I IN I 

L J 



[SUPPRESS] 



I ==pseudo-text-l== I 

r I identifiei — 1 | 

[ REPLACING < < > 

•- ! literal-1 | 

I word-1 I 



BY 



j ==pseudo-text-2= 

I identifiei — 2 

< 

I literal-2 

I word-2 

L 



= 1 



1 1 
> > 

I J 



. ] 



Compilation of the source program containing COPY statements is 
logically equivalent to processing all COPY statements before 
processing the resulting source program. 

The effect of processing a COPY statement is that the library 
text associated with text-name is copied into the source 
program, logically replacing the entire COPY statement beginning 
with the word COPY and ending with the period, inclusive. When 
the REPLACING option is not specified, the library text is 
copied unchanged. 

The text-name must follow the rules for formation of a 
program-name. These first eight characters of the text-name are 
used as the identifying name; these first eight characters must 
therefore be unique within one COBOL library. 

If more than one COBOL library is available during compilation, 
text-name must be qualified by the library-name of the library 
on which it resides. See "System Dependencies," 

The library-name must follow the rules for formation of a 
program-name. The first eight characters of the library-name 
are used as the identifying name; these first eight characters 
must therefore be unique within the system. 

The uniqueness of the text-name and the library-name is 
determined after the formation and conversion rules for a 
program-name have been applied. (These rules are given in the 
PROGRAM-ID Paragraph of the Identification Division chapter.) 
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Each COPY statement must be preceded by a space and ended with a 
period followed by a space. 

A COPY statement may appear in the source program anywhere a 
character string or a separator may appear; however^ a COPY 
statement must not be specified within a COPY statement. The 
resulting copied text must not contain a COPY statement. 

Comment lines may appear in library text. Comment lines in 
library text are copied into the source program unchanged^ and 
are interpreted logically as a single space. 

Debugging lines may appear in library text. 

When a COPY statement is specified on a debugging line/ the 
copied text is treated as though it appeared on a debugging 
line, except that comment lines in the library text appear as 
comment lines in the resulting source program. 

Because the syntactic correctness of the library text cannot be 
independently determined, the syntactic correctness of the 
entire COBOL source program cannot be determined until all COPY 
statements have been completely processed. 

Library text copied from the library i s placed into the same 
area of the resultant program as it is in the library. Library 
text must conform to the rules for standard COBOL format. 

Notes Because copy processing uses column one for control 
characters, characters outside the standard character set should 
not appear in column one of copy members. 






IBM Extension 



SUPPRESS Option 



The SUPPRESS option specifies that the library text is not to be 
printed on the source program listing. 

Note: The SUPPRESS option has no effect when using LISTER 
(LSTCLSTO) or FIPS (LVL = ). 



J" 



End of IBM Extension 



REPLACING option 



In the discussion that follows, each operand may consist of one 
of the following^ pseudo-text, an identifier, a literal, or a 
COBOL word. When the REPLACING option is specified, each 
operand-1 from the library text is replaced by its associated 
operand-2. 

PSEUDO-TEXT •• Pseudo-text is a sequence of charactei — strings 
and/or separators bounded by, but not including, pseudo-text 
delimiters (==). Both characters of each pseudo-text delimiter 
must appear on one line; however, charactei — strings within 
pseudo-text can be continued. Because of the replacement rules, 
the continued line of pseudo-text-2 can begin in Area A. 

Note: A character string for pseudo-text is a complete COBOL 

word; the prefix portion of a data name, for example, cannot be 

replaced using pseudo-text unless the entire data name is used. 
Figure 76 shows an example of this. 



\^ 
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Library-member A consists of the following COBOL text: 

Area 

A Area 
i B 
i i 
i i 
V V 

X. 10 AA-ID PIC X(9). 



A COPY statement that replaces data description AA-ID with 
data description BB-ID/ would be written as follows'* 

Area 

A Area 

B 

I 



V V 

BB-ID == . 



COPY A REPLACING == AA-ID == BY == 



Figure 76, Pseudo-Text Continuation Lines 



c 



Pseudo-text-l/ which is the library text* must not be null* nor 
may it consist solely of the space character and/or of comment 
lines. Beginning and ending blanks are not included in the text 
comparison process. Embedded blanks are used in the text 
comparison process to indicate multiple text elements. 

Pseudo-text-2 may be null; it may consist solely of space 
characters and/or comment lines. Each word in p5eudo-text-2 
that is to be copied into the program is placed in the same area 
of the resultant program as it appears in pseudo-text-2. 

IDENTIFIER: Each identifier may be defined in any Data Division 
secti on. 

LITERAL: Each literal may be numeric or nonnumeric. 

COBOL 140RD: Each COBOL word may be any single COBOL word. 

REPLACING OPTION PROCESSING: When the REPLACING option is 

specified* the library text is copied* and each properly matched 

occurrence of operand-1 within the library text is replaced by 
the associated operand-2. 

For purposes of matching* each i denti f ier-1* literal-1* or 
word-1 is treated* respectively* as pseudo-text containing only 
identifiei — 1* literal-1* or word-1. 

Notes: 

1. Arithmetic and logical operators are considered to be text 
words and may be replaced only through the pseudo-text 
option. 

2. Ulhen a figurative constant is operand-1* it will match only 
exactly as specified. For example* if ALL "AB" is specified 
in the library text* then "ABAB" is not considered a match* 
only ALL "AB" is considered a match. 

3. Uhen replacing a PICTURE charactei — string* the pseudo-text 
option must be used* to avoid ambiguities* pseudo-text-1 
must specify the entire PICTURE clause* including the key 
word PICTURE or PIC. 
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The comparison proceeds as follows^ 

• Any separator comma^ semicolon^ and/or space preceding li ^ 
the leftmost word in the library text is copied into the ^^^^ 
source program. Beginning with the leftmost library 

text word and the first operand-1 specified in the 
REPLACING option, the entire REPLACING operand that 
precedes the key word BY is compared to an equivalent 
number of contiguous library text words. 

• Operand-! matches the library text if, and only if, the 
ordered sequence of text words in operand-1 is equal, 
character for character to the ordered sequence of 
library words. For matching purposes, each occurrence 
of a comma or semicolon separator is considered to be a 
single space; however, when operand-1 consists solely of 
a separator comma or semicolon it participates in the 
match as a text word (in this case, the space following 
the comma or semicolon separator may be omitted). Each 
sequence of one or more space separators is considered 
to be a single space. 

• If no match occurs, the comparison is repeated with each 
successive operand-1, if specified, until either a match 
is found or there are no further REPLACING operands. 

• Whenever a match occurs between operand-1 and the 
library text, the associated operand-2 is copied into 
the source program. 

• When all operands have been compared and no match is 
found, the leftmost library text word is copied into the 
source program. 

• The next successive uncopied library text word is then 
considered the leftmost text word, and the comparison /f "^ 
process is repeated, begi nni ng -wi th the first operand-1. L 
The process continues until the rightmost library text V^^' 
word has been compared. 

• A comment line occurring in operand-1 and in the library 
text is interpreted for matching purposes as a single 
space. A comment line appearing in operand-2 is copied 
unchanged into the source program. 

• Debugging lines are not permitted in operand-1. 
Debugging lines, however, are permitted in library text 
and in operand-2. Text words in a debugging line are 
matched as if no D appeared in column 7. 

• Text words after replacement are placed in the source 
program according to standard COBOL format rules. 

4. There is an established limit of 150 COPY replacing argument 
pairs that may be used in any source program. When this 
limit is exceeded, a message is issued and the COPY 
statement is ignored. 



COPY Statement Example 



In this example, the library entry PAYLIB consists of the 
following Data Division entries** 

02 B PIC S99. 
02 C PIC S9(5)V99. 

02 D PIC S9999 OCCURS 1 TO 52 TIMES 
DEPENDING ON B OF A. 

The programmer can use the COPY statement in the Data Division 
of a program as follows^ 

01 PAYROLL. 

COPY PAYLIB. 
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Programming Notes 






In this program, the library entry is then copied; the resulting 
entry is treated as if it had been written as follows* 

01 PAYROLL. 

02 B PIC S99. 
02 C PIC S9(5)V99. 

02 D PIC S9999 OCCURS 1 TO 52 TIMES 
DEPENDING ON B OF A. 

To change some (or all) of the names within the library entry, 
the programmer can use the REPLACING option! 

01 PAYROLL. 

COPY PAYLIB REPLACING A BY PAYROLL 
B BY PAY-CODE C BY GROSS-PAY. 

In this program, the library entry is copied; the resulting 
entry is treated as if it had been written as follows* 

01 PAYROLL. 

02 PAY-CODE PIC S99. 
02 GROSS-PAY PIC S9(5)V99. 

02 D PIC S9999 OCCURS 1 TO 52 TIMES 

DEPENDING ON PAY-CODE OF PAYROLL. 

The changes shown are made only for this program. The entry as 
it appears in the library remains unchanged. 

Note: The COPY statement as previously implemented is discussed 
in Appendix A. 



Sequences of code (such as file and data descriptions, error and 
exception routines, and so forth) that are common to a number of 
programs can be cataloged, and then used in conjunction with the 
COPY statement. If naming conventions are established for such 
common code, then the REPLACING option need not be specified. 
If the names will change from one program to another, then the 
REPLACING option can be used to supply meaningful names for this 
program. 

I IBM Extension 1 



EXTENDED SOURCE PROGRAM LIBRARY 



BASIS STATEMENT 



A complete program may be included as an entry in a user's 
library and may be used as the source for a compilation. 
Compiler input is a BASIS statement, optionally followed by any 
number of INSERT and/or DELETE statements. 



The BASIS statement provides a complete COBOL program as the 
source for a compilation. 

Format 

[sequence-number] BASIS basis-name 

A sequence-number followed by a space may, optionally, appear in 
columns 1 through 7 of the card-image statement. 

The word BASIS followed by basis-name may appear anywhere in 
columns 1 through 72. There must be no other text in the 
statement. 

The basis-name must follow the rules for formation of a 
program-name; it is the name by which the library entry is known 
to the control program. The first eight characters are used as 



Source Program Library 297 



the identifying name^ and must therefore be unique within this 
li brary. 



INSERT/DELETE STATEMENTS 



INSERT Statement 



The INSERT statement allows the programmer to add COBOL 
statements to the BASIS source program. The DELETE statement 
allows the programmer to remove COBOL statements from and add 
COBOL statements to the BASIS source program. 

Format 

r INSERT 1 
[sequence-number] < > sequence-number-field 

I DELETE I 



A sequence-number followed by a space may optionally appear in 
columns 1 through 7 of the card-image statement. 

The word INSERT or DELETE* followed by a space* followed by the 
sequence-numbei — field may appear anywhere within columns 1 
through 72. There must be no other text in the statement. 

Each number in the sequence-numbei — field must be equal to a 
sequence number in the BASIS source program. This sequence 
number is the 6-digit number the programmer assigns in columns 1 
through 6 of the COBOL coding form. 

The numbers specified must be in ascending numeric order from 
the first INSERT/DELETE statement to the last INSERT/DELETE 
statement in the program. 



The sequence-numbei — field must be a single number (for example* 
000130). At least one new source program statement must follow 
the INSERT statement for insertion after the statement number 
specified by the sequence-numbei — field. 



O 



V. ./ 



DELETE Statement 



The sequence-numbei — field must be any one of the following^ 

A single number 

A series of single numbers 

A range of numbers (indicated by separating the two bounding 
numbers of the range by a hyphen) 

A series of ranges of numbers 

Any combination of one or more single numbers and one or 
more ranges of numbers 

Each entry in the sequence-numbei — field must be separated from 
the preceding entry by a comma followed by a space. For 
example: 

000250 DELETE 000010-000050, 000^00, 000<»50 

Notes: 

1. Source program statements may follow a DELETE Extended 

Source Program Library statement^ These source statements 
are then inserted into the BASIS source program before the 
statement following the last statement deleted. (That is* 



J 



298 IBM VS COBOL for OS/VS 



o 



in the example above^ before the next statement following 
deleted statement 000^50.) 

If a DELETE statement is specified beginning in column 12 or 
higher^ and valid sequence numbers do not follow the key 
word DELETE* the compiler assumes that this DELETE statement 
is the COBOL DELETE verb. 



End of IBM Extension 
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SUBPROGRAM LINKAGE FEATURE 



Complex data processing problems are often solved by the use of 
separately compiled but logically interdependent programs which* 
at execution time* form logical and physical subdivisions of a 
single run unit. (A run unit is the total machine-language 
program necessary to solve a data processing problem; it 
includes one or more object programs* and may include object 
programs from source languages other than COBOL.) 



S UB PROGRAM LINKAGE CONCEPTS 



When the solution to a problem is subdivided into more than one 

program* the constituent programs must be able to communicate 

with each other through transfers of control and/or through 
reference to common data. 



CONTROL TRANSFERS 



In the Procedure Division* a calling program can transfer 
control to a called program* and a called program may itself 
transfer control to yet another called program. However* a 
called program must not directly or indirectly call its caller 
(such as program A calling program B* program B calling program 
C; and program C then calling program A) or results sre 
unpredi ctable. 

When control is passed to a called program* execution proceeds 
in the usual way* as described in the Procedure Division 
chapter. When called program processing is completed* the 
program can either transfer control back to the calling program* 
call another program* or end the run unit. 






COMMON DATA 



Program interaction may require that both programs have access 
to the same data. 

In a calling program the common data items are described in the 
same manner as other File* Working-Storage* or Communication 
Section items^ storage is allocated for these items in the 
calling program. 



In a called program* comm 
Linkage Section; storage 
program. (Because a call 
program* common data item 
program's Linkage Section 
allocated for these items 
rather in the program tha 
program A calls program B 
program A can be describe 
and C* and the one set of 
three programs.) 



on data items are described in the 
is not allocated to them in the called 
ing program may itself be a called 
s may be described in the calling 
* in which case storage is not 

in the calling program itself* but 
t called the calling program. That is* 

which calls program C. Data items in 
d in the Linkage Sections of programs B 

data can be made available to all 



When control is transferred from the calling to the called 
program* the programmer must furnish a list of the common data 
items in both programs. The sequence of identifiers in both 
lists determines the match of identifiers between the calling 
and called programs; that is* a corresponding pair of 
identifiers in the list names a single set of data that is 
available to both programs. While the called program is 
executing* any reference to one of these identifiers is a 
reference to the calling program's corresponding data. 
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COBOL LANGUAGE CONSIDERATIONS 



In the Data Division of the source programs* the programmer 
defines the common data items to be used by both the calling and 
called programs. In the calling program* these items can be 
defined in the File* Working-Storage* Communications* or Linkage 
Sections. In the called program* these items must be defined in 
the Linkage Section. Common data items need not have the same 
name and data description* they must contain the same number of 
characters. 



In the Procedure Division* the list of common data items is 
established through the USING option* which names those data 
items available to both programs. In the called progra>n* only 
those items named in the called program's USING list are 
available from the calling program's data storage. Figure 77 
illustrates this concept. 



Calling Program Description 

WORKING-STORAGE SECTION. 
01 PARAM-LIST. 

05 PARTCODE PIC A. 

05 PARTNO PIC X(4). 

05 U-SALES PIC 9(5). 



Called Program Description 



LINKAGE SECTION, 
01 USING-LIST. 
10 PART-ID 
10 SALES 



PIC X(5). 
PIC 9(5). 



PROCEDURE DIVISION. 



PROCEDURE DIVISION 

USING USING-LIST 



CALL CALLED-PROG 

USING PARAM-LIST. 

In the calling program* the code 
for parts (PARTCODE) and the part 
number (PARTNO) are referred to 
separately. 



In the called program* the code 
for parts and the part number 
Qr& combined into one data item 
(PART-ID); in the called program* 
a reference to PART-ID is the 
only valid reference to them. 



Figure 77. Common Data Items in Subprogram Linkage 



A CALL statement in the calling program transfers control to the 
first nondeclarati ve procedural statement in the called program. 
When the called program has completed execution* control is 
returned to the calling program by an EXIT PROGRAM statement. 
The entire run unit can be ended by a STOP RUN statement. 



o 
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IBM Extension .... . ... . j 



A CALL statement in the calling program can transfer control to \^ 

an alternative entry point i n the called program. The 

alternative entry point is identified by an ENTRY statement in 

the called program. When the CALL statement is executed^ 

control is transferred to the next executable statement 

following the ENTRY statement. 

Control can also be returned to the calling program by a GOBACK 
statement. 

A called program can be returned to its initial state by a 
CANCEL statement for that program; the next CALL statement to 
that called program then makes it available in its initial 
state. In addition* the CALL statement makes provision for 
transferring control to one or more called programs whose names 
are unknown at compile time* and also for determining the 
object-time availability of storage for the called program. 



End of IBM Extension 



SYSTEM CONSIDERATIONS 



STATIC CALL STATEMENT: In the CALL statement, the main COBOL 
program and all called programs are part of the same load 
module. When control is transferred to the called program, it 
is already resident in storage* and a branch to the called 
program takes place. Subsequent executions of the CALL 
statement make the called program available in its last-used 
state. 



I IBM Extension 1 

If alternative entry points are specified* any CALL statement Q 
can use any alternative entry point to enter the called \^ 

subprogram. 



End of IBM Extension ' 



DYNAMIC CALL STATEMENT: In this form of the CALL statement* the 
called subprogram is not link-edited with the main program* but 
is instead link edited into a separate load module* and at 
execution time is loaded only if and when it is required (that 
is* when called). 

Each subprogram invoked with a dynamic CALL statement may be 
part of a different load module* which is a member of the system 
link library or of a usei — supplied private library. The 
execution of the dynamic CALL statement to a subprogram that is 
not resident in storage results in the loading of that 
subprogram from secondary storage into the region/partition 
containing the main program and a branch to the subprogram. 

Thus* the first dynamic CALL to a subprogram obtains a fresh 
copy of the subprogram. Subsequent calls to the same subprogram 
(by either the original caller or by any other subprogram within 
the same region/partition) result in a branch to the same copy 
of the subprogram in its last-used state. However* when a 
CANCEL statement is issued for that subprogram* the storage 
occupied by the subprogram is freed* and a subsequent CALL to 
the subprogram will function as though it were the first. A 
CANCEL statement referring to a called subprogram may be issued 
by a program other than the original caller. 



^W-iM 
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I IBM Extension 



If the called subprogram has more than one entry point* 
differing entry points must not be specified in the CALL 
statement until an intervening CANCEL statement has been 
executed. ^, 

Note: See the System Depejid5nci-eA_^b^Rter. on the CALL ^^.^.^ \ 

statement. ^-^ — 



End of IBM Extension 



For further information on specification of static and dynamic 
CALL statements* see the System Dependencies chapter. 



SUBPROGRAM LINKAGE — DATA DIVISION 



£\, 



In the Data Division of a called program, the programmer 
specifies in the Linkage Section those data items that are 
common with the calling program. 

Format 

LINKAGE SECTION 



I 77 I 

< > data-name/FILLER Clause 

I 01-49 I 

L J 

[REDEFINES Clause] 
CBLANK WHEN ZERO Clause] 
[JUSTIFIED Clause] 
[OCCURS Clause] 
[PICTURE Clause] 
[SIGN Clause] 
[SYNCHRONIZED Clause] 
[USAGE Clause]. 

[88 condition-name VALUE Clause.] 

[66 RENAMES Clause.] 

The Linkage Section has meaning if* and only if* this object 
program functions under control of a CALL statement that 
contains the USING option. 

The Linkage Section describes data available within the calling 
program and referred to in both the calling and called programs, 
Items described in the Linkage Section do not have space 
allocated for them in this program* Procedure Division 
references to these data items are resolved at object time by 
equating the reference in the called program to the location 
used i n the calling program. For index-names* no such 
correspondence is established* index-name references in the 
calling and called programs always refer to separate indexes. 

Items defined in the Linkage Section can be referred to in the 
Procedure Division only if they ar^ one of the following^ 

• Operands of a USING option in this program 

• Data items subordinate to such a USING option operand 

• Items associated with such a USING operand (such as 
condition-names or index-names) 

Because neither can be qualified* each Linkage Section 
record-name and noncontiguous data-name must be unique* 
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Descriptions of each valid clause in the Linkage Section are 
given in the Data Description Entry chapter. The following 
additional considerations apply. 






RECORD DESCRIPTION ENTRIES 



Items that have a hierarchic relationship with one another must 
be grouped into 01-level records according to the rules for 
formation of record descriptions. Data description clauses can 
be used to complete the description of the entry. Except for 
level-88 condition names* the VALUE clause must not be 
speci f i ed. 

See the System Dependencies chapter. 

DATA ITEM DESCRIPTION ENTRIES 

Items that have no hierarchic relationship with each other can 
be defined as noncontiguous items with level-number 77. The 
following clauses ar^ required** 

• Level-number 77 

• Data-name 

• PICTURE or USAGE IS INDEX 

Other data description clauses are. optional* and, when 
necessary* can be used to complete the description of the item. 
Except for level-88 condition names* the VALUE clause must not 
be speci f i ed. 

See the System Dependencies chapter. 

SUBPROGRAM LINKAGE — PROCEDURE DIVISION 4. y 

In the Procedure Division* control is transferred between COBOL 
object programs by means of the CALL statement. 

Reference to common data is provided through the USING option* 
which can be specified in the CALL statement and in the called 
program* s Procedure Division header. 

I — IBM Extension 1 

The ENTRY statement makes provision for alternative entry points 
into a called program* the USING option can also be specified in 
the ENTRY statement of a called program. 

The GOBACK statement allows termination of called program 
processing or of main COBOL program processing. 



End of IBM Extension ' 



The EXIT PROGRAM statement allows termination of called program 
processing. The STOP RUN statement allows termination of the 
run unit. 

The CANCEL statement releases storage used by a called 
subprogram. 

Because it is common to several Subprogram Linkage Feature 
elements* the USING option is discussed before the other 
Procedure Division statements. 
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USING OPTION 



ri 

^||(;»j/' 
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The USING option makes data items in a calling program available 
to a called program. 

Format 

USING identifier-1 Cidentif i er-2] ... 

The USING option is valid for the CALL statement in a calling 
program* and in the Procedure Division header of a called 
program entered at the beginning of the nondeclarati ves portion. 

In a calling program, the USING option is valid for the CALL 
statement; each USING identifier must be defined as a level-01 
or level-77 item anywhere in the Data Division. 



IBM Extension \ 



However, this IBM implementation allows each USING identifier in 
a calling program to be a data item anywhere in the Data 
Division except the Report Section. 



End of IBM Extension 



In a called subprogram entered at the beginning of the 
nondeclarati ves portion, the USING option is valid in the 
Procedure Division header; each USING identifier must be defined 
as a level-01 or level-77 item in the Linkage Section of the 
called subprogram. 

f ' ' IBM Extension 1 

In a called subprogram entered at the first executable statement 
following an ENTRY statement, the USING option is valid in the 
ENTRY statement; each USING identifier must be defined as a 
level-01 or level-77 item in the Linkage Section of the called 
subprogram. 

' End of IBM Extension ' 



Formats for these individual items show the correct syntax for 
specifying the USING option. 

The USING option is specified if, and only if, the called 
subprogram is to operate under control of a CALL statement and 
that CALL statement itself contains a USING option. That is, 
for each CALL USING statement in a calling program, there must 
be a corresponding USING option specified in a called 
subprogram. 

The order of appearance of USING identifiers in both calling and 
called programs determines the correspondence of single sets of 
data available to both programs. The correspondence is 
positional and not by name. Corresponding identifiers must 
contain the same number of characters, although their data 
descriptions need not be the same. For index-names, no 
correspondence is established; index-names in calling and called 
programs always refer to separate indexes. 

The identifiers specified in a CALL USING statement name data 

items available to the calling program that may be referred to 

in the called program; a given identifier may appear more than 

once. These items are defined in any Data Division section. 

I IBM Extension 1 

However, this IBM implementation allows the data items named by 
the identifiers specified in a CALL USING statement to be 
defined anywhere in the Data Division except the Report section. 



End of IBM Extension ' 
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CALL STATEMENT 



In a called subprogram^ USING identifiers must be defined in the 
Linkage Section. Of those items defined in the Linkage Section* 
only those named in the USING option are available to the object 
program. Within the called subprogram* USING identifiers are 
processed according to their definition within this program. 

When the USING option is specified* the object program executes 
as if each reference to a USING identifier in the called program 
Procedure Division is replaced by a reference to the 
corresponding USING identifier in the calling program. 

Examples illustrating these concepts are given in Figure 77 and 
in the section on Subprogram Linkage Feature Examples. 

Note: The USING option must not be specified for a called 
subprogram that contains a CD entry for INITIAL input. 

Further information is given in the chapter on System 
Dependenci es. 



The CALL statement causes control to be transferred from one 
object program to another within the run unit. 

Format 1 — Static CALL 

CALL literal-1 [ USING identifier-1 [ i denti f i er-2J . . ,1 
Format 2 — Dynamic CALL 

I literal-2 1 

CALL < > 

I identifiei — 3 | 

[ USING identifier-1 [ i dent i f i er-23 ... ] ^'^ 

[ON OVERFLOW imperative-statement] 

Each literal must be nonnumeric and must conform to the rules 
for formation of program-names (see PROGRAM-ID Paragraph in the 
Identification Division chapter). The first eight characters of 
the literal are used to make the correspondence between the 
calling program and the called program. 

When the called subprogram is to be entered at the beginning of 
the Procedure Division* the literal must specify the 
program-name of the called subprogram. 



I IBM Extension j 

When the called subprogram is entered through an ENTRY 
statement* the literal must be the same as that specified in the 
called subprogram's ENTRY statement. This literal must not be 
the called subprogram's program-name but must follow the rules 
for formation of a program-name. 



End of IBM Extension 



Rules for USING option identifiers are given in the preceding 
section on the USING option. 

The program containing the CALL statement is the calling 
program; the program identified in the CALL statement is the 
called subprogram. 

Called subprograms may contain CALL statements* however* a 
called subprogram must not contain a CALL statement that 
directly or indirectly calls the calling program. 

CALL statement execution causes control to pass to the called 
subprogram. The first time a called program is entered* its 
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state is that of a fresh copy of the program. Each subsequent 

time a called program is entered^ the state is as it was upon 

the last exit from that program. Thus* the reinitialization of 

the following items is the responsibility of the programmer J 

• GO TO statements that have been altered 

• Data items 

• PERFORM statements 

See the System Dependencies chapter for further information. 



Segmentation Considerations 



CANCEL STATEMENT 



A CALL statement may appear anywhere within a segmented program; 
the compiler ensures that the proper logic flow is maintained. 
Therefore* if a CALL statement appears in an independent 
segment* that segment is made available in its last-used state 
when control is returned from the called program. 



The CANCEL statement releases the storage occupied by a called 
subprogram. 



Format 



\ literal-1 1 [ literal-2 1 

CANCEL < > I I 

I identifiei — 1 I | identifier-2 | 

L J L J 



g^^ 



Each literal or identifier specified in the CANCEL statement 
must be nonnumeric. The contents must conform to the rules for 
formation of a program-name (see PROGRAM-ID Paragraph in the 
Identification Division chapter.) The first eight characters of 
the literal or identifier are used to make the correspondence 
between the calling and called program. 

Each literal or identifier specified in the CANCEL statement 
must be the same as the literal or identifier specified in the 
associated CALL statement( s) . 

For a program in which the CALL literal statement is static^ 

• The CANCEL literal statement is invalid. 

• The CANCEL identifier statement is accepted* but the 
compiler then uses the COBOL Library Management Facility. 

Subsequent to the execution of a CANCEL statement* the program 
referred to therein ceases to have any logical relationship to 
the program in which the CANCEL statement appears. A 
subsequently executed CALL statement by any program in the run 
unit naming the same program will result in that program being 
entered in its initial state. 

A logical relationship to a canceled subprogram is established 
only by execution of a subsequent CALL statement. 

A called subprogram is canceled either by being directly 
referred to as the operand of a CANCEL statement or by the 
termination of the run unit of which the program is a member. 

No action is taken when a CANCEL statement is executed naming a 
program that has not been called in this run unit or has been 
called and is at present canceled. Control passes to the next 
statement. 

Called subprograms may contain CANCEL statements. However, a 
called subprogram must not contain a CANCEL statement that 
directly or indirectly cancels the calling program itself, or 
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any other program higher than itself in the calling hierarchy. 

In such a case^ the run unit is terminated. „,-^ 

A program named in a CANCEL statement must not refer to any \^.j^ 

program that has been called and has not yet returned control to 

the calling program. A program may, however, cancel a program 

that it did not call, if the calling hierarchy is higher than or 

equal to the program it is canceling. For example, A calls B, 

and B calls C; when A receives control, it can cancel C; or A 

calls B, and A calls C; when C receives control, it can then 

cancel B. 

See the System Dependencies chapter for further information. 

I IBM Extension 1 



ENTRY STATEHENT 



The ENTRY statement establishes an alternative entry point into 
a COBOL called subprogram. 

Format 

ENTRY literal [ USING identifier-1 C i denti f i er-2] ... ] 

When a CALL statement naming the alternative entry point is 
executed in a calling program, control is transferred to the 
next executable statement following the ENTRY statement. 

The literal must not be the name of the called subprogram, but 
it must follow the same rules of formation; at least one 
character must be alphabetic. The first eight characters are 
used to make the correspondence between the calling and the 
called program. 

The literal must be nonnumeric; it must be unique within this 
run unit. 

Execution of the called program begins at the first executable 
statement following the ENTRY statement whose literal 
corresponds to the CALL statement literal or identifier. 






.^ 



End of IBM Extension 



EXIT PROGRAH STATEHENT 



The EXIT PROGRAM statement specifies the logical end of a called 
program. 

Format 

paragraph-name. EXIT PROGRAM . 

The EXIT statement must be preceded by a paragraph-name, and 
must be the only statement in the paragraph. 

If control reaches an EXIT PROGRAM statement while operating 
under the control of a CALL statement, control returns to the 
point in the calling program immediately following the CALL 
statement. 

If control reaches an EXIT PROGRAM statement, and no CALL 
statement is active, control passes through the exit point to 
the first sentence of the next paragraph. 

For further considerations, see the chapter on System 
Dependenci es. 



( 



y/ 
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STOP RUN STATEMENT 



GOBACK STATEMENT 






The STOP RUN statement is discussed in the chapter on Procedure 
Branching Statements. 

For Subprogram Linkage considerations* see the chapter on System 
Dependenci es. 



IBM Extension 



The GOBACK statement specifies the logical end of a called 
program. 

Format 

GOBACK . 

A GOBACK statement must appear as the only statement* or as the 
last of a series of imperative statements* in a sentence. 

If control reaches a GOBACK statement while operating under the 
control of a CALL statement* control returns to the point in the 
calling program immediately following the CALL statement. 

See the System Dependencies chapter for the action taken when a 
GOBACK statement is executed and no CALL statement is active. 



End of IBM Extension 
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SUBPROGRAM LINKAGE FEATURE EXAMPLES 



The Format-l CALL statement (static call) is illustrated in the 
following program example. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLSTAT. 



../ 



DATA DIVISION. 



WORKING-STORAGE SECTION. 

01 RECORD-2 PIC X. 

01 RECORD-1. 

05 SALARY PICTURE S9(5)V99 
05 RATE PICTURE S9V99. 
05 HOURS PICTURE S99V9. 



PROCEDURE DIVISION. 



CALL "SUBPROG" USING RECORD-1 



CALL "PAYMASTR" USING RECORD-1 RECORD-2. 



STOP RUN. 

The Format 2 CALL statement (dynamic CALL) is illustrated in the 
following example* which achieves results different from the 
preceding example. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CALLDYNA. 



\-. 



J>' 



DATA DIVISION. 



WORKING-STORAGE SECTION. 
77 IDENT PICTURE X(8). 



01 RECORD-2 PIC X. 
01 RECORD-1. 

05 SALARY 

05 RATE 

05 HOURS 



PICTURE S9(5)V99 
PICTURE S9V99. 
PICTURE S99V9. 



PROCEDURE DIVISION. 



MOVE "SUBPROG" TO IDENT. 
CALL IDENT USING RECORD-1 



1^ 



CANCEL IDENT 
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MOVE "PAYMASTR" TO IDENT. 
CALL IDENT USING RECORD-1 



RECORD-2. 



STOP RUN- 

The following called subprogram can be associated with either of 
the two preceding calling programs. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. SUBPROG. 



DATA DIVISION. 



LINKAGE SECTION. 
01 PAYREC. 

10 PAY 

10 HOURLY-RATE 

10 HOURS 
77 CODE PIC 9. 



PICTURE S9(5)V99 
PICTURE S9V99. 
PICTURE S99V9. 



PROCEDURE DIVISION USING PAYREC. 



\i*/ 



EXIT PROGRAM. 

ENTRY "PAYMASTER" USING PAYREC CODE. 



GOBACK. 

Processing begins in the call i ng program — which may be either 
CALLSTAT or CALLDYNA. When the first CALL statement is 
executed^ control is transferred to the first statement of the 
Procedure Division in SUBPROG, which is the called program. 

Note that, in each of the CALL statements, the operand of the 
first USING option is identified as RECORD-1. 

When SUBPROG receives control, the values within RECORD-1 are 
made available to SUBPROG; however, in SUBPROG they are referred 
to as PAYREC. 

Note that the PICTURE character-strings within PAYREC and CODE 
contain the same number of characters as RECORD-1 and RECORD-2, 
although the descriptions are not identical. 

When processing within SUBPROG reaches the EXIT PROGRAM 
statement, control is returned to the calling program. 
Processing continues in that program until the second CALL 
statement is issued. 



^^^jP' 



Note that 
statement 



in CALLSTAT (statistically linked) 
would not be valid. 



the CANCEL 



-^4'^'^''y 
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I ■ IBM Extension • 1 if^'^^ 

In CALLDYNA^ however^ because the second CALL statement refers ^w^*^ 
to another entry point within SUBPROG, a CANCEL statement is 
issued before the second CALL statement. 

With the second CALL statement in the calling program* control 
is again transferred to SUBPROG* but this time processing begins 
at the statement following the ENTRY statement in SUBPROG. The 
values within RECORD-1 and RECORD-2 are again made available to 
PAYREC. In addition, the value in RECORD-2 is now made 
available to SUBPROG through the corresponding USING operand 
CODE. 

When processing reaches the GOBACK statement, control is 
returned to the calling program at the statement immediately 
following the second CALL statement. 

Note that, when control is transferred the second time from 
CALLSTAT, SUBPROG is made available in its last-used state (that 
is, if any values in SUBPROG storage were changed during the 
first execution, those changed values sre still in effect). 
When control is transferred from CALLDYNA, however, SUBPROG is 
made available in its initial state. 

' End of IBM Extension ' 

In any given execution of these two programs, if the values 
within RECORD-1 are changed between the time of the first CALL 
and the second, the values passed at the time of the second CALL 
statement will be the changed, not the original, values. If the 
user wishes to use the original values, then they must be saved. 



c 



->.J^ 
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COMMUNICATION FEATURE 



ThQ communication feature alloMs the COBOL programmer to access^ 
process, and create messages and portions of messages, and to 
control the flow of messages through a communications network. 
Communication with local and remote communications devices is 
through a Message Control System (MCS). 



COMMUNICATION CONCEPTS 






QUEUE CONCEPTS 



The Communication Feature permits the COBOL programmer to create 
device-independent message processing programs for data 
communication applications. A communication network consists of 
a central computer, remote or local station(s), and the 
communication lines connecting such stationCs) to the central 
computer. 

In communication applications, data flow into the system is 
random and proceeds at relatively slow speeds. Data in the 
system exists as messages from remote stations, or as messages 
generated by internal programs. Once delivered to the computer, 
the messages can be processed at computer speeds. Thus, 
communication applications require a Message Control System 
(MCS) that acts as an interface between the COBOL program and 
the remote stations. 

The MCS acts as the logical interface between the entire network 
of communications devices and the COBOL program, in much the 
same manner as the operating system acts as an interface between 
the COBOL object program and conventional input/output devices. 
The MCS also must perform device-dependent tasks such as 
character translation, and insertion of control characters, so 
that the COBOL program itself is device-independent. The MCS 
and the COBOL communication program operate asynchronously; that 
is, there is no fixed time relationship between the receipt of a 
message by the MCS and its subsequent processing by the COBOL 
communication program. 

The MCS has two constituent partsJ 

1. A usei — written Telecommunications Access Method (TCAM) 
Message Control Program (MCP) coded in assembler language. 

2. COBOL Communications Feature object-time subroutines. 



To store the messages until they are to be processed, the MCS 
uses message queues, which may be thought of as sequential data 
sets. The queues act as buffers between the COBOL communication 
program and the remote stations. To the COBOL communication 
program, the MCS queue from which it accepts messages is 
logically an input queue ; the queue; into which it places 
messages is logically an output queue . In this publication, 
these terms have these meanings. 



Input Queues and Queue structures 






Associated with each MCS input queue can be logical paths from 
any number of remote stations — in COBOL terms, symbolic sources, 
A symbolic source (remote station) may, conversely, have 
associated with it logical paths to any number of MCS input 
queues. COBOL uses symbolic queue structures to access the MCS 
input queues. 

At execution time, the COBOL object program retrieves messages 
from the MCS through a system of predefined symbolic queue 
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structures. Each queue structure is constructed like a tree and 
can consist of a named queue with up to three levels of 
subordinate named sub-queues. The queue structure need not 
include all three levels of sub-queues; however* if a lower 
level is specif ied* all higher levels for that branch of the 
structure must also be specified. In any branch of the 
structure^ the lowest level sub-queue corresponds to an MCS 
input queue. Figure 78 i s an example of a predefined input 
queue structure. 
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Figure 78. Predefined Input Queue Structure Example 



\^' 



The predefined queue structures are analogous in fun 
form to a file-processing program FD entry and its a 
record description. As in a COBOL FD entry* a refer 
higher level includes an implicit reference to all 1 
subordinate to the named level. Thus* in the preced 
a reference to QUEUE A is a reference to the entire 
structure (as a reference to a file-name in an FD en 
reference to all record descriptions associated with 
Similarly* a reference to SUB-QUEUE-2 E is also impl 
reference to both SUB-QUEUE-3 F and SUB QUEUE-3 6. 
COBOL allows the programmer to specify which parts o 
structure are to be accessed. 
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The messages in a queue structure are available in left-to-right 
order. In the preceding example* the following references make 
the indicated messages available? 

• QUEUE A — messages 1 through 7, in ascending order 

• SUB-QUEUE-1 B — messages 1 through 6* in ascending order 

• SUB-QUEUE-2 E — messages 3 through 6* in ascending order 

• SUB-QUEUE-1 C — only message 7 



..^ 
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Output Queues 



Associated with each MCS output queue is a logical path to a 
single symbolic destination (remote station). For this reason* 
the MCS output queue is not explicitly named> but is referred to 
implicitly whenever the symbolic destination is referred to. 
The COBOL program can refer to output queues through a 
destination table of symbolic destination names — the number of 
names accessed is controlled by the COBOL programmer. 



DATA DIVISION CONCEPTS 



The interface between COBOL and the MCS is established through 
the Communication Description (CD) entries in the Communication 
Section. If input communication operations are to be performed 
there must be at least one CD entry for input; if output 
communication operations are to be performed, there must be at 
least one CD entry for output. Multiple input and/or output CD 
entries are allowed. Level-01 data description entries (which 
implicitly redefine the CD area) may also be specified/ 
following the CD entry. 

Each CD entry is an implicitly-defined fixed storage area into 
which information about messages is placed for use by both the 
COBOL program and the MCS. 



PROCEDURE DIVISION CONCEPTS 

Five statements are used by the COBOL object program to request 
MCS services^ 

• ENABLE statement — which allows data transfer between the MCS 
and the communications network. 

. • DISABLE statement — which prevents data transfer between the 

/ MCS and the communications network. 

• RECEIVE statement — which causes data in an MCS input queue 
associated with a specified queue structure to be passed to 
the COBOL object program. 

• SEND statement — which causes data associated with the COBOL 
object program to be passed to one or more MCS output 
queues. 

• ACCEPT MESSAGE COUNT statement — which causes the MCS to 
return to the COBOL object program the number of complete 
messages in the specified MCS input queues associated with 
the queue structure. 

The RECEIVE, ACCEPT MESSAGE COUNT, and SEND statements control 
information flow between the COBOL object program and the MCS, 
while the ENABLE and DISABLE statements control message traffic 
between the MCS and the communications network. (Note that 
information flow between the COBOL object program and the MCS is 
not affected by the ENABLE or DISABLE statements.) 

Any completed messages existing in an MCS input queue prior to 
the disabling of that queue may still be accessed by RECEIVE and 
ACCEPT MESSAGE COUNT statements directed to that queue; however, 
any messages subsequently directed to that queue will be 
di scarded. 

Any completed messages existing in an MCS output queue at the 
time the associated symbolic destination is disabled will not be 
transmitted until the destination is reenabled; new messages may 
continue to be directed to a disabled destination and will be 
transmitted when the destination is reenabled. 

The relationship between the COBOL object program, the MCS, and 
the remote stations is shown in Figure 79. 
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Figure 79. Communication Feature Relationships 
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OBJECT PROGRAM SCHEDULING 



A COBOL communication program may be scheduled for execution 
through Job Control Language (JCL). It may also be scheduled 
for execution by the MCS . (In the latter case, the COBOL 
program is invoked only Mhen there are messages available for it 
to process.) 

A COBOL program can be written so that its object program can 
operate with either mode of scheduling. To determine which 
method of scheduling was used to invoke the COBOL object 
program, the following technique can be used: 

• One CD FOR INITIAL INPUT must be specified. 

• Procedure Division statements test the initial value of the 
symbolic queue and sub-queue names for that CD. If they are 
space-filled, the COBOL program was invoked by job control 
statements; if they contain data, the MCS invoked the COBOL 
program and placed the symbolic name of the queue containing 
messages into the symbolic queue and sub-queue name fields. 



MESSAGE AND MESSAGE SEGMENT CONCEPTS 






A message is an arbitrary amount of information whose start and 
end are defined or implied. 

A message can be logically subdivided into message segments, 
which are delimited by end of segment indicators (ESI). A 
message is delimited from the next message by an end of message 
indicator (EMI). A group of messages can also be delimited from 
another group by an end of group indicator (EGI). The presence 
of these logical indicators is recognized and specified both by 
the MCS and the COBOL program; however, no indicators are 
included in the message text processed by COBOL programs. For 
incoming messages, the associated end indicators are identified 
in the CD entry area. For outgoing messages, the COBOL program 
specifies the end indicators to be associated with the message. 



COMMUNICATION — DATA DIVISION 



The Communication Section of a COBOL program must be specified 
if the program is to utilize the communication features of 
COBOL. The Communication Section, through the definition of 
Communication Description (CD) entries, establishes the 
interface between the COBOL object program and the MCS. 

General Format 

[ COMMUNICATION SECTION . 

{communication description entry 

[record description entry] ...3 ... . 

The Communication Section is identified by, and must begin with, 
the section header COMMUNICATION SECTION. The header is 
followed by Communication Description (CD) entries. 
Specification of the CD entry causes an implicitly defined data 
area to be created; that is, the generated data area has a fixed 
format. Level-01 record description entries may optionally 
follow the CD entry; these record description entries implicitly 
redefine the fixed data areas of the CD. 



o 



Mhen it is specified, the Communication Section should contain 
at least one CD entry. A single CD entry is sufficient if 
messages are only of one type, that is, only FOR INPUT or only 
FOR OUTPUT. If the COBOL program is to both receive and send 
messages, then at least two CD entries are required — one FOR 
INPUT and one FOR OUTPUT. However, multiple input and/or output 
CD entries may be specified. 
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CD ENTRY 



The CD entry is valid only in the Communication Section. 



The CD entry is the highest level of organization in the 
Communication Section* and provides information about messages 
being processed by the COBOL object program. 

Format 1 — Option 1 

CD cd-name FOR [ INITIAL ] INPUT 

[SYMBOLIC QUEUE IS data-name-1] 
[SYMBOLIC SUB-QUEUE-1 IS data-name-2] 
[SYMBOLIC SUB-QUEUE-2 IS data-name-3] 
[SYMBOLIC SUB-QUEUE-3 IS data-name-4] 
[ MESSAGE DATE IS data-name-5] 
[ MESSAGE TIME IS data-name-6] 
[SYMBOLIC SOURCE IS data-name-73 
[ TEXT LENGTH IS data-name-8] 

[ END KEY IS data-name-93 

[ STATUS KEY IS data-name-10] 

[MESSAGE COUNT IS data-name-11] . 

Format 1 — Option 2 

CD cd-name FOR [ INITIAL ] INPUT 

[data-name-1 data-name-2 ... data-name-11]. 

Format 2 

CD cd-name FOR OUTPUT 

[ DESTINATION COUNT IS data-name-1] 
[ TEXT LENGTH IS data-name-2] 

[ STATUS KEY IS data-name-3] 

[ DESTINATION TABLE OCCURS integer-2 TIMES 

[ INDEXED BY index-name-1 [ i ndex-name-2] ... ] ] 
[ ERROR KEY IS data-name-4] 

[SYMBOLIC DESTINATION IS data-name-53 . 

The CD entry serves as a storage area through which the COBOL 
program and the MCS communicate. The COBOL programmer moves 
information about the operation to be performed into the CD 
before initiating any request. The MCS, after acting upon the 
request/ returns through the same CD information pertaining to 
the operation. 

The CD entry is defined in such a way that any number of message 
queues may be accessed through the same CD entry. Conversely, 
different portions of one message may be accessed through 
multiple CD entries in the same program or in different COBOL 
subprograms residing in the same region or partition. Thus* any 
COBOL communication program needs to specify only one input CD 
entry and/or one output CD entry. Rules controlling the 
accessing of MCS queues are specified in the detailed 
descriptions of both input (Format 1) and output (Format 2) CD 
entries. 

The level indicator CD identifies the beginning of a 
Communication Description entry, and must appear in Area A. It 
must be followed in Area B by cd-name. cd-name follows the 
rules for formation of a data-name. cd-name may be followed by 
a series of optional independent clauses (as shown in Format 1 
and Format 2). 

Except for the INITIAL clause, the optional clauses of the CD 
entry may be written in any order. Because the data areas of 
both the input CD and the output CD have implicit definitions, 
the optional clauses are necessary only to assign user names for 
those areas to which the COBOL program will refer. However, if 
all the options of either format are omitted, then a level-01 
record description entry must follow the CD entry. 
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The optional clauses may be follouied by one or more level-01 
record description entries; these record description entries 
implicitly redefine the fixed data area described by the CD 
entry. The total length of each record description entry must 
be the same as the fixed data descriptions of the CD entry. 
(Examples are given later in this section.) 

If more than one such redefining record description entry is 
written^ only the first may contain VALUE clauses. 

Subordinate data description entries uiithin the record 
description need not be the same length as the implicit data 
items described in the CD entry. However > the MCS always refers 
to this data area according to the implicit CD entry 
descriptions. That \s, for an input CD* the contents of 
positions 1 through 12 are always used as the symbolic queue* 
the contents of positions 13 through 24 are always used as 
symbolic sub-queue-l* and so forth. 



Format 1» Options 1 and 2 — input CD Entry 






This format is required if the CD entry is FOR INPUT. At least 
one input CD entry must be specified if symbolic input queues or 
sources are to be referred to in the COBOL object program. Any 
number of queues or sources can be referred to through one input 
CD entry; to do this> the user simply places different queue or 
source names into the input CD. 

Conversely* different portions of one message from the same 
symbolic queue may be accessed through different CD entries. 
Thus* CD entries in the same or different COBOL subprograms in 
the same run unit may be used to access different portions of 
the same message. The same CD entry may be used to access a 
message from another queue before the first message is 
completed. The following restrictions apply' 

• Only one region (or partition) can have access to any 
particular queue at one time. 

• The data in a queue must be accessed sequentially. That is* 
a second message in any queue cannot be accessed until the 
entire first message in that queue is accessed. However* a 
second message from another queue may be accessed before the 
entire message in the first queue is accessed. 

The specification of an input CD entry results in a record whose 
implicit description is shown in Figure 80. 



Equivalent COBOL Record Description 

01 data-name-O . 



Description of Use 



02 


data-name-1 


PICTURE X(12). 


Symbolic Queue 


02 


data-name-2 


PICTURE X(12). 


Sub-queue-1 


02 


data-name~3 


PICTURE X(12). 


Sub-queue-2 


02 


data-name--4 


PICTURE X(12). 


Sub-queue-3 


02 


data-name-5 


PICTURE 9(6). 


Message Date 


02 


data-name-6 


PICTURE 9(8). 


Message Time 


02 


data-name-7 


PICTURE X(12). 


Symbolic Source 


02 


data-name-8 


PICTURE 9(4). 


Text Length 


02 


data-name-9 


PICTURE X, 


End Key 


02 


data-name-10 


PICTURE XX. 


Status Key 


02 


data-name-11 


PICTURE 9(6). 


Message Count 


Figure 80. Input CD Entry — Implicit Description 
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Format 1 — option 1 



For each input CD entry* a record area of 87 contiguous Standard 

Data Format characters is always generated, and implicitly 

defined as previously specified. The data names corresponding 

to the various fields of the CD record area may be explicitly \ 

defined* through the use of the optional clauses. 

If MCS scheduling of the COBOL object program is desired* one CD 
FOR INITIAL INPUT must be specified; only one is allowed. Uihen 
the MCS schedules the program* the SYMBOLIC QUEUE and (if 
applicable) SYMBOLIC SUB-QUEUE fields are updated to contain the 
names of the queue structure that caused the invocation. In all 
other cases* these fields of this input CD entry are initialized 
to spaces. These actions are completed before execution of the 
first Procedure Division statement. 

Subsequent RECEIVE statement execution for this cd-name returns 
the message that caused this program to be scheduled. Only at 
this time is the remainder of the CD FOR INITIAL INPUT updated. 

A CD FOR INITIAL INPUT must not be specified in a called 
subprogram that contains USING identifiers. 



Data-names corresponding to the fields of the CD area may be 
explicitly defined. In one CD entry* each data-name must be 
unique. 

SYMBOLIC QUEUE and SUB-QUEUE Clauses: These clauses define 
data-name-1* data-name-2* data-name-3* and data-name-4 as the 
names of alphanumeric data items each of 12 characters in 
length* and occupying character positions within the record as 
follows^ 



r^'- 



4 



• data-name-1 occupies character positions 1 through 12 

• data-name-2 occupies character positions 13 through 24 

• data-name-3 occupies character positions 25 through 36 \^,Jl>^ 

• data-name-4 occupies character positions 37 through 48 

(See the chapter on System Dependencies.) 

Before executing a statement that refers to a queue structure 
(RECEIVE, ACCEPT MESSAGE COUNT* ENABLE INPUT (without TERMINAL), 
or DISABLE INPUT (without TERMINAL))* the contents of 
data-name-1 must be set to the name of the queue structure* and 
the contents of data-name-2 through data-name-4 must be set to 
the names of ar^y required sub-queues or to spaces. (Note that 
the compiler initializes the contents of data-name-1 through 
data-name-4 to spaces.) When a sub-queue name is specified* all 
higher-level sub-queue names must also be specified. 

After execution of the ACCEPT MESSAGE COUNT* ENABLE INPUT 
(without TERMINAL)* and DISABLE INPUT (without TERMINAL) 
statements* the contents of data-name-1 through data-name-4 are 
unchanged. 

After execution of the RECEIVE statement* the contents of 
data-name-1 through data-name-4 are updated to contain the 
complete queue structure identification corresponding to the MCS 
input queue from which the message or message segment was 
retrieved. Thus* if message retrieval is incomplete* execution 
of subsequent RECEIVE statements using the same input CD will 
return successive portions of the same message. When a message 
from a less specific source is needed* the contents of 
data-name-1 through data-name-4 must be respecified. 

For example: Referring to Figure 78* assume that data-name-1 
contains A and data-name-2 through data-name-4 contain spaces 
before execution of a RECEIVE statement. After execution of the 
RECEIVE statement (which would access message D* data-name-1 
would contain A* data-name-2 would contain B* and data-name-3 
would contain D. 
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MESSAGE DATE Clause^ This clause defines data-name*- 5 as the name 
of an unsigned 6-digit integer data item> occupying character 
positions ^9 through 54 of the record. 

Data-name-5 has the format YYMMDD (ye&r, month, day). Its 
contents represent the date on which the MCS received this 
message. 

The contents of data-name-5 are updated by the MCS as part of 
the execution of each RECEIVE statement. 

MESSAGE TIME Clause: This clause defines data-name-6 as the name 
of an unsigned 8-digit integer data item, occupying character 
positions 55 through 62 of the record. 

Data-name-6 has the format HHMMSSTT (hours, minutes, seconds, 
hundredths of a second). Its contents represent the time of day 
the message was received in the system by the MCS. 

The contents of data-name-6 are updated by the MCS as part of 
the execution of each RECEIVE statement. 

SYMBOLIC SOURCE Clause: This clause defines data-name-7 as the 
name of an elementary alphanumeric data item of 12 characters, 
occupying character positions 63 through 74 of the record. 

During execution of a RECEIVE statement, the MCS provides in 
data-name-7 the symbolic name of the source of this message. 
(The symbolic names the MCS uses are one through eight 
characters in length; the remaining characters are set to 
spaces.) However, if the symbolic name of the source is not 
known to the MCS, the contents of data-name-7 are set to spaces. 

Before executing an ENABLE INPUT TERMINAL or DISABLE INPUT 
TERMINAL statement, the COBOL programmer must set the contents 
of data-name-7 to the symbolic name of the source to be enabled 
or disabled. 

TEXT LENGTH Clause: This clause defines data-name-8 as the name 
of an unsigned 4-digit integer data item, occupying character 
positions 75 through 78 of the record. 

The MCS indicates through the contents of data-name-8 the number 
of main storage bytes, if any, of the user's work area filled as 
a result of the execution of a RECEIVE statement. 

END KEY Clause: This clause defines data-name-9 as the name of a 
1-character elementary alphanumeric data item, occupying 
character position 79 of the record. 

The MCS sets the contents of data-name-9, as part of the 
execution of each RECEIVE statement, according to the following 
rules: 

• Uhen RECEIVE MESSAGE is specified, then the contents of 
data-name-9 are: 

3 if end-of-group has been detected 

2 if end-of-message has been detected 

if less than a message has been moved 
into the user-specified area 
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When RECEIVE SEGMENT is specified, then the contents of 
data-name-9 are'' 



\ 



(if 

if end-of-group has been detected ^^ 



y 



2 if end-of-message has been detected 

1 if end-of-segment has been detected 

if less than a message segment has been moved into 
the user-specified area. 

• When more than one of the above conditions is satisfied 

simultaneously, the rule first satisfied in the order listed 
determines the contents of data-name~9. An end of group is 
a logical end of file condition caused by a user request in 
the MCS. In general, depending on the size of the work unit 
and the Mork area provided. End keys may be associated with 
a text length of 0. This is always the case for end of 
group. 

Note: The MCS removes the end of itransmi ssion (EOT) line 
control character before presenting a message to a COBOL object 
program. Because the EBCDIC representation of EOT is 
hexadecimal "37", the last data character of a message should 
never be hexadecimal "37". 

STATUS KEY Clause* This clause defines data-name-10 as the name 
of a 2-character elementary alphanumeric data item, occupying 
character positions 80 and 81 of the record. 

The contents of data-name-10 indicate the status condition of 

the previously executed communication statement. The program 

should, therefore, check the contents of data-name-10 

immediately after each communication operation to determine the 

success or failure of the operation. Note that the proper f x 

updating of other input CD fields and/or message input areas may y 

depend on successful statement execution. \^ 

Figure 81 indicates the possible values that the STATUS KEY 
field (for both input and output CD entries) may contain at the 
completion of execution for each statement. An X on a line in a 
statement column indicates that the associated code on that line 
is possible for that statement. 
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STATUS 
KEY 
Value 


Meaning 


RE- 
CEIVE 


SEND 


ACCEPT 
MES- 
SAGE 

COUNT 


ENABLE 
INPUT 
(without 
TERMI- 
NAL) 


ENABLE 
INPUT 
(with 
TERMI- 
NAL) 


ENABLE 
OUT- 
PUT 


DISABLE 
INPUT 
(without 
TERMI- 
NAL) 


DISABLE 
INPUT 

(with TER- 
MINAL) 


DIS- 
ABLE 
OUTPUT 


00 


No error detected. Request 
completed. 


X 


X 


X 


X 


X 


X 


X 


X 


X 


10 


1 or more destinations dis- 
abled. Action completed. 




X 
















20 


1 or more destinations un- 
known. Action completed 
for known; none taken for 
unknown. ERROR KEY 
indicates known or un- 
known. 




X 








X 






X 


20 


1 or more queues or 
subqueues unknown. No 
action taken. 


X 




X 


X 






X 






20 


Source unknown. No action 
taken. 










X 






X 




30 


DESTINATION COUNT 
content invalid. No action 
taken. 




X 








X 






X 


40 


Password invalid. No action 
taken. 








X 


X 


X 


X 


X 


X 


50 


Character count greater 
than sending field. No ac- 
tion taken. 




X 
















60 


Partial segment with char- 
acter count or no sending 
area specified. No action 
taken. 




X 

















o 



standard COBOL 



STATUS 
KEY 
Value 


Meaning 


RE- 
CEIVE 


SEND 


ACCEPT 
MES- 
SAGE 

COUNT 


ENABLE 
INPUT 
(without 
TERMI- 
NAL) 


ENABLE 
INPUT 

(with 
TERMI- 
NAL) 


ENABLE 
OUT- 
PUT 


DISABLE 
INPUT 
(without 
TERMI- 
NAL) 


DISABLE 
INPUT 

(with TER- 
MINAL) 


DIS- 
ABLE 
OUTPUT 


21 


Insufficient storage for con- 
trol blocks and/or buffers. 
Request canceled. 


X 


X 


X 


X 


X 


X 


X 


X 


X 


22 


Required DD statement 
missing. Request canceled. 




X 




X 


X 


X 


X 


X 


X 


27 


Queue full. Request can- 
celed. Retry. 




X 
















28 


Quick close down of com- 
munication network. 
Request canceled. 




X 
















29 


I/O error has occurred. 
Request canceled. 


X 


X 


X 


X 


X 


X 


X 


X 


X 



IBM Extensions 

Figure 81. STATUS KEY Field — Possible Values 



MESSAGE COUNT Clause '• This clause defines data-name-11 as the 
natne of an unsigned 6-digit integer data item* occupying 
character positions 82 through 87 of the record. 

The contents of data-name-11 indicate the number of complete 
messages that exist in an input queue structure. The MCS 
updates the contents of data-name-11 only as part of the 
execution of an ACCEPT MESSAGE COUNT statement. 
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Format 1 — Option 2 

The second option of Format 1 alloMs the programmer to specify \1 
data-name-1 through data-name-11 without the descriptive ^~ ^ 

clauses. If any data-names are to be omitted, the word FILLER 
must be substituted for each omitted name, except that FILLER 
need not be specified for any data-name that occurs after the 
last name to be referred to. 

For' example, if the programmer wishes to refer to the SYMBOLIC 
QUEUE as QUEUE-IN and to the MESSAGE DATE as DATE-IN, the input 
CD entry can be written as follows^ 

CD INPUT-AREA FOR INPUT 

QUEUE-IN FILLER FILLER FILLER DATE-IN. 

In this case, data-name-6 through data-name-11 can be omitted 
without FILLER being written in their place. 

The same input CD entry can be written as follows (in this case, 
an optional level-01 record description entry redefining the 
data areas is also included): 

CD INPUT-AREA FOR INPUT 

SYMBOLIC QUEUE IS QUEUE-IN 
MESSAGE DATE IS DATE-IN. 
01 INAREA-RECORD. 

05 FILLER PICTURE X(78). 

05 ENDKEY-CODE PICTURE X(l). 

88 PARTIAL-SEGMENT VALUE "0." 

88 END-SEGMENT VALUE "1." 

88 END-MESSAGE VALUE "2." 

88 END-GROUP VALUE "3." 

05 FILLER PICTURE X(8). 



By naming the SYMBOLIC QUEUE and MESSAGE DATE fields of the CD f 
the programmer can refer to these data areas within the program 
without further defining them. By redefining the END KEY data 
area, the programmer can use condition-names to refer to the 
values contained in that area. 



Format 2 — output CD Entry 



This format is required if the CD entry is FOR OUTPUT. At least 
one output CD entry must be specified if operations involving 
symbolic destinations are to be performed. A number of output 
CD entries in the same program or in different subprograms in 
the same run unit may be used to send different portions of the 
same message, so that parts of one message may be transferred to 
the MCS using different CD entries. 

Until the transfer of a message for e specific destination from 
the COBOL object program to the MCS is complete, the transfer of 
a second message for the same destination must not begin; 
however, the transfer of messages for different destinations may 
proceed independently. 

The specification of an output CD entry always results in a 
record whose implicit description is shown in Figure 82, 

All data-names must be unique within the CD entry. 

DESTINATION COUNT Clause: The DESTINATION COUNT clause defines 
data-name-1 as the name of an unsigned 4-digit integer data 
item, occupying character positions 1 through 4 of the record. 

When a SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement is 
executed, data-name-1 specifies the number of destinations to be 
used from the Destination Table. If the number is not in the 
range from 1 through i ntegei — 2, an error occurs, and execution 
of the statement is terminated; it is the user's responsibility 
to ensure that the value is valid. 



\.„> 
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Equivalent COBOL Record Description Description of Use 

01 data-nam©-0. 

02 data-name-1 PICTURE 9(4). Destination Count 

02 data-name-2 PICTURE 9(4). Text Length 

02 data-name-3 PICTURE XX. Status Key 

02 data-name OCCURS integer-2 TIMES. Destination Table 

03 data-name-4 PICTURE X. Error Key 

03 data-name-5 PICTURE X(12). Symbolic 

Desti nati on 

Figure 82. Output CD Entry — Implicit Description 



If the contents of data-name-1 are n» the symbolic destinations 
in ascending order are the first through nth occurrences of 
data-name-5 (the symbolic destination). 

If the DESTINATION TABLE clause is omitted, the contents of 
data-name-1 must be 1, and one ERROR KEY and one SYMBOLIC 
DESTINATION are assumed. In this case, when referring to these 
items, subscripting or indexing must not be used. 

TEXT LENGTH Clause: This clause defines data-name-2 as the name 
of an unsigned 4-digit integer data item, occupying character 
positions 5 through 8 of the record. 

In the execution of a SEND statement, MCS interprets the 
contents of data-name-2 as the number of leftmost bytes of main 
storage of the identifier named in the SEND statement to be 
transferred (see SEND statement). 

J STATUS KEY Clause: This clause defines data-name-3 as the name 

"'^ of a 2-character elementary alphanumeric data item, occupying 

character positions 9 and 10 of the record. 

The contents of data-name-3 indicate the status condition of the 
previously executed communication statement. The program 
should, therefore, check the contents of data-name-3 immediately 
after each communications operation. The values data-name-3 can 
contain, and their meanings, are defined in Figure 81. 

DESTINATION TABLE Clause: This clause specifies that the items 
identified by the ERROR KEY and SYMBOLIC DESTINATION clauses are 
repeated integei — 2 times. 

The INDEXED BY option provides index-name-1, index-name-2, and 
so forth, as a means of referring to one specific ERROR KEY and 
SYMBOLIC DESTINATION. (For a description of the INDEXED BY 
option, see the chapter on Table Handling.) 

Ulhen the DESTINATION TABLE clause is specified, character 
positions 11 through 23 and every following set of 13 characters 
form table items. When the DESTINATION TABLE clause is omitted, 
it is assumed that there is one ERROR KEY and one SYMBOLIC 
DESTINATION for this output CD entry. 

ERROR KEY Clause: This clause defines data-name-4 as the name of 
a 1-character elementary alphanumeric item. 

During execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT 
statement, the MCS updates the contents of each occurrence of 
data-name-4, as follows: 

1 If the corresponding symbolic destination in data-name-5 is 
unknown to the MCS 

If this occurrence of the symbolic destination is known to 
the MCS 
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Note: The programmer should not examine the ERROR KEY unless 

the STATUS KEY field is set to * 20'. f'"^ 

SYMBOLIC DESTINATION Clause: This clause defines data-name-5 as "^-^ 
the name of a 12-character elementary alphanumeric data item. 

Each occurrence of data-name-5 contains a symbolic destination. 
Character positions 1 through 8 must have been previously 
defined to the MCS. 

Note: Uhen a message is being sent to a remote station^ the MCS 
adds the proper line control characters. 

OUTPUT CD ENTRY EXAMPLE: The following example illustrates an 
output CD entry, with an optional level-01 data description 
entry redefining the data areas: 

CD OUTPUT-AREA FOR OUTPUT 

TEXT LENGTH IS MSG-LEN6TH 
SYMBOLIC DESTINATION IS Q-OUT. 
01 OUTAREA-RECORD. 

05 FILLER PICTURE X(IO). 
05 ERRKEY-CODE PICTURE X. 
88 KNOWN VALUE "0". 
88 UNKNOWN VALUE "1". 
05 FILLER PICTURE X(12). 

By naming the TEXT LENGTH and SYMBOLIC DESTINATION fields of the 
CD entry/ the programmer can refer to those data areas within 
the program without further defining them. By redefining the 
ERROR KEY data area, the programmer can use condition-names to 
refer to the values contained in that area. 



COMMUNICATION — PROCEDURE DIVISION 



ENABLE STATEMENT 



The Procedure Division for the Communication Feature contains 
statements that direct data communication functions. These 
statements are'- ENABLE, DISABLE, ACCEPT MESSAGE COUNT, RECEIVE, 
and SEND. 



The ENABLE statement notifies the MCS to allow data transfer 
between specified sources/destinations and specified 
input/output queues. 

Format 

r INPUT [ TERMINAL ] ] 
ENABLE < > cd-name 

I OUTPUT I 

L J 

I identifier I 

WITH KEY < > 

j literal I 

L J 

The ENABLE statement provides a logical connection between the 
MCS and the specified sources or destinations. If the logical 
connection already exists, or is handled outside the COBOL 
program, the ENABLE statement is not required. 

The logical path for data transfer between the COBOL program and 
the MCS is not affected by the ENABLE statement. 

When INPUT is specified, the cd-name must specify a CD FOR 
INPUT. When OUTPUT is specified, the cd-name must specify a CD 
FOR OUTPUT. 






c 
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DISABLE STATEHENT 



When INPUT TERMINAL is specified, the logical paths between the 
specified source and all previously-enabled MCS input queues is 
activated. In the input CD specified by cd-name, only the 
SYMBOLIC SOURCE field (data-name-7 ) is meaningful to the MCS; 
this field must contain the name of the symbolic source before 
the ENABLE statement is executed. 

When INPUT without TERMINAL is specified, the logical paths 
between the MCS input queues corresponding to the specified 
queue structure and all previously-enabled sources are 
activated. Before the ENABLE statement is executed, the COBOL 
programmer must specify the queue structure (or portion thereof) 
to be activated. To do this, the programmer places the queue 
structure name in the SYMBOLIC QUEUE field (data-name-1) of the 
input CD, and, if necessary, places any needed sub-queue names 
in the SYMBOLIC SUB-QUEUE fields (data-name-2 through 
data-name-'^). When a sub-queue name is specified, all 
highei — level subqueue names in that branch of the queue 
structure must also be specified. Any SYMBOLIC SUB-QUEUE fields 
for which a sub-queue name has not been specified must be set to 
spaces. 

Note that the logical path between an MCS input queue and a 
symbolic source is enabled only if both the queue and the source 
are enabled. 

When OUTPUT is specified, the logical path(s) between the 
destination(s) specified in the SYMBOLIC DESTINATION field(s) 
for this output CD and the corresponding MCS output queue(s) are 
activated. The symbolic destination names must be placed in all 
required occurrences of the destination table (data-name-5) of 
the output CD before the ENABLE statement is executed. 

For the KEY phrase, literal or identifier must be defined as 
alphanumeric. When the ENABLE statement is executed, the value 
in literal or identifier is matched with the system password 
(which is from 1 through 10 characters in length). If the 
values match, ENABLE statement execution is completed. If the 
values do not match, the STATUS KEY in this CD entry is updated 
to "40". (See Figure 81 for status key meanings.) 



The DISABLE statement notifies the MCS to prevent data transfer 
between specified sources/destinations and specified 
input/output queues. 

Format 

T INPUT [ TERMINAL ] 1 

DISABLE < > cd-name 

I OUTPUT I 

L J 

I identifier j 

WITH KEY < > 

I literal | 

L J 

The DISABLE statement logically disconnects the MCS and the 
specified sources or destinations. If the MCS and the 
source/destination have already been disconnected, or if the 
action is to be handled outside the COBOL program, the DISABLE 
statement is not required. 

The logical path for data transfer between the COBOL program and 
the MCS is not affected by the DISABLE statement. 

When INPUT is specified, the cd-name must specify a CD FOR 
INPUT. When OUTPUT is specified, the cd-name must specify a CD 
FOR OUTPUT. 
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When INPUT TERMINAL is specified^ the logical paths between the 
specified source and all MCS input queues and sub-queues is 
deactivated. In the input CD specified by cd-name, only the . 
SYMBOLIC SOURCE field (data-name-7) is meaningful to the MCS; V.# 
this field must contain the name of the symbolic source before 
the DISABLE statement is executed. 

When INPUT without TERMINAL is specified, the logical paths 
between the MCS input queues corresponding to the specified 
structure and all sources are deactivated. Before the DISABLE 
statement is executed, the COBOL programmer must specify the 
queue structure (or portion thereof) to be deactivated. To do 
this, the programmer places the queue structure name in the 
SYMBOLIC QUEUE field (data-name-1) of the input CD, and, if 
necessary, places any needed sub-queue names in the SYMBOLIC 
SUB-QUEUE fields (data-name-2 through data-name-4) . When a 
sub-queue name i s specified, all higher-level subqueue names in 
that branch of the queue structure must also be specified. Any 
SYMBOLIC SUB-QUEUE fields for which a sub-queue name has not 
been specified must be set to spaces. 

Note that the logical path between an MCS input queue and a 
symbolic source is disabled if either the queue or the source is 
disabled. 

When OUTPUT is specified, the logical path(s) between the 
destinationCs) specified in the SYMBOLIC DESTINATION field(s) 
for this output CD and the corresponding MCS output queue(s) are 
deactivated. The symbolic destination names must be placed in 
all required occurrences of data-name-5 of this output CD before 
the DISABLE statement is executed. 

For the KEY phrase, literal or identifier must be defined as 

alphanumeric. When the DISABLE statement is executed, the value 

in literal or identifier is matched with the system password 

(which is from 1 through 10 characters in length). If the ^ x 

values match, DISABLE statement execution is completed. If the ( 

values do not match, the STATUS KEY in this CD entry is updated ^_/ 

to "40". (See Figure 81 for status key meanings.) 



ACCEPT MESSAGE COUNT STATEMENT 



The ACCEPT MESSAGE COUNT statement returns the number of 
complete messages in a given input queue structure. 

Format 

ACCEPT cd-name MESSAGE COUNT 

The cd-name must specify an input CD entry. 

Before the ACCEPT MESSAGE COUNT statement is executed, the COBOL 
programmer must specify the queue structure (or portion thereof) 
for which a message count is required. To do this, the 
programmer places the queue structure name in the SYMBOLIC QUEUE 
field (data-name-1) of the input CD, and, if necessary, places 
any needed sub-queue names in the SYMBOLIC SUB-QUEUE fields 
(data-name-2 through data-name-4). When a sub-queue name is 
specified, all highei — level sub-queue names in that branch of 
the queue structure must also be specified. Any SYMBOLIC 
SUB-QUEUE fields for which a sub-queue x\Bm^ has not been 
specified must be set to spaces. 

When the statement is executed, the STATUS KEY field 
(data-name-10) and the MESSAGE COUNT field (data-name-11) of 
this input CD entry are updated. 

Execution of the ACCEPT MESSAGE COUNT statement causes the 
MESSAGE COUNT field of the named input CD to be updated with the 
number of complete messages present in the input queue /i^ ^ 

structure. Thus, the COBOL program can check a queue structure '1 J 
for a predetermined message count before executing a specific ^^^J" 
communication processing function. 
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RECEIVE STATEMENT 






o 



When the ACCEPT MESSAGE COUNT statement is executed, the STATUS 
KEY field of the named input CD is updated as shown in 
Figure 81. When a STATUS KEY other than "00" is returned, the 
MESSAGE COUNT field is unchanged. 



The RECEIVE statement makes available to the COBOL program a 
message, message segment, or a portion of a message or message 
segment, and pertinent information about that message from an 
input queue maintained by the MCS. 

Format 

r MESSAGE ] 

RECEIVE cd-name < > INTO identifier 

I SEGMENT I 

L J 

C NO DATA imperative-statement] 

The cd-name must specify an input CD entry. 

Before the RECEIVE statement is executed, the COBOL programmer 
must specify the queue structure (or portion thereof) from which 
a message segment is required. To do this, the programmer 
places the queue structure name in the SYMBOLIC QUEUE field 
(data-name-1) of the input CD, and, if necessary, places any 
needed sub-queue names in the SYMBOLIC SUB-QUEUE fields 
(data-name-2 through data-name-4) . When a sub-queue name is 
specified, all higher-level sub-queue names in that branch of 
the queue structure must also be specified. Any SYMBOLIC 
SUB-QUEUE fields for which a sub-queue name has not been 
specified must be set to spaces. 

Upon execution of the RECEIVE statement, data is transferred to 
the receiving character positions of identifier, aligned to the 
left without any space fill and without any data format 
conversion. The following data items in the input CD are 
appropriately updated when the RECEIVE statement is executed^ 
SYMBOLIC SUB-QUEUE-1 through SYMBOLIC SUB-QUEUE-4, MESSAGE DATE, 
MESSAGE TIME, SYMBOLIC SOURCE, TEXT LENGTH, END KEY, and STATUS 
KEY (see Figure 81). 

A complete message need not be received before another MCS queue 
is accessed. Because of this, messages from different MCS 
queues may be processed at the same time by a COBOL program. 
(Note, however, that a message is not made available to the 
COBOL program until it is completely received by the MCS and 
placed in a queue.) 

A single execution of a RECEIVE statement never returns more 
than a single message (when the MESSAGE phrase is used) or a 
single segment (when the SEGMENT phrase is used), regardless of 
the size of the receiving area. 

When the MESSAGE phrase is used, the end-of-segment condition, 
if present, is ignored. (This occurs only when the user, 
through the MCS, segments the message, and the COBOL program 
uses MESSAGE mode to RECEIVE the message.) 

Note: For the treatment of the end-of-segment condition (when 
the MESSAGE phrase is used) as previously implemented, see 
Appendix A. 

The following rules apply to the data transfer* 

♦ If a message is the same size as identifier, the message is 
stored in identifier. 
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• If a message size is smaller than identifier, the message is 
aligned to the leftmost character position of identifier 
with no space fill. 

• If a message size is larger than identifier, the message 
fills identifier left to right, starting with the leftmost 
character of the message. The remainder of the message can 
be transferred to identifier with subsequent RECEIVE 
statements referring to the same queue. Either the MESSAGE 
or the SEGMENT option may be specified for the subsequent 
RECEIVE statements. 

When the SEGMENT phrase is used, the end-of-segment condition, 
if present (or the end-of-message condition, if present), 
determines the end of data transfer. The following rules apply 
to the data transfer* 

• If a segment is the same size as identifier, the segment is 
stored in identifier. 

• If a segment size is smaller than identifier, the segment is 
aligned to the leftmost character position of identifier 
with no space fill. 

• If a segment size is larger than identifier, the segment 
fills identifier left to right, starting with the leftmost 
character of the segment. The remainder of the segment can 
be transferred to identifier with subsequent RECEIVE 
statements referring to the same queue. Either the MESSAGE 
or the SEGMENT option may be specified for the subsequent 
RECEIVE statements. 

• If the message text has an end-of-message or end-of-group 
indicator associated with it, an associated end-of-segment 
indicator is implied. Thus, the text is treated as a 

message segment. ^ x 

After the execution of a RECEIVE statement has returned a \.,-/ 

portion of a message, only subsequent execution of RECEIVE 
statements in that run unit can cause the remaining portions of 
the message to be returned. 

After the execution of a program termination statement that ends 
this run unit, the disposition of the remaining portions of any 
message only partially obtained is not defined. 

During execution of the RECEIVE statement, when the MCS finds 
that a completed message is not available in the requested queue 
structure^ 

• If NO DATA is specified, the RECEIVE statement execution 
ends with the appropriate input CD fields updated; the NO 
DATA imperative-statement is then executed. 

• If NO DATA is not specified, execution is suspended (that 
is, the program is placed in wait status) until a completed 
message becomes available in the requested queue structure. 

• If any errors occur during execution of a RECEIVE statement, 
the STATUS KEY is updated and control passes to the next 
executable statement, whether or not the NO DATA option is 
speci f i ed. 
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SEND STATEMENT 



The SEND statement causes a message^ a message segments or a 
portion of a message or message segment to be released to the 
MCS. 

Format 1 

SEND cd-name FROM identifier-1 
Format 2 

I identifier-2 | 
I ESI I 

SEND cd-name [ FROM i dentif ier-13 WITH < > 

EMI 

EGI 



r BEFORE 1 



r [ identifier-3 1 f LINE 1 1 
< < > I LINES I > 



L J 



I j integer 

< > ADVANCING < ^ «- -» -» > ] 

! AFTER I r 1 ' 

I mnemonic-name I I 

< > I 

I PAGE I I 

L L J J 

Messages may be transferred to the MCS as segments^ as complete 
messages^ or as parts of segments or messages. HoMever> data is 
never transmitted to the named destination until a complete 
message has been transferred to the MCS. 

The cd-name must specify an output CD entry. 

Before a SEND statement is executed^ this output CD entry must 
contai n^ 

• In the DESTINATION COUNT field, the number of destinations 
to be used from the destination table. 

• In the TEXT LENGTH field, the number of leftmost bytes of 
contiguous data to be transferred to the MCS from 

i denti f i er-1 . 

• In the SYMBOLIC DESTINATION field(s), the nameCs) of the 
symbolic destinationC s) that are to receive the message or 
message segment. These names must have been previously 
defined to the MCS. 

After execution of the SEND statement, data is transferred from 
identifiei — 1 to the MCS output queue(s) corresponding to the 
symbolic destination name(s) contained in the SYMBOLIC 
DESTINATION field(s). 

Once a SEND statement has released a portion of a message to the 
MCS, only subsequent SEND statement executions in the same run 
unit can release the remaining portion of the message. 

Uhen a receiving device (printer, display screen, card punch, 
and so forth) has a fixed line size** 

• Each message or message segment begins at the leftmost 
character position of the physical line. 

• Any message or message segment smaller than the physical 
line size is transmitted so as to appear space-filled to the 
ri ght . 
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• Any message or message segment larger than the physical line 
size is not truncated. Instead/ the entire physical line is 
filled with characters and transmitted to the device; the 
excess characters are continued on the next line. \ ,^ 

Ulhen a receiving device (paper tape punch/ another computer/ and 
so forth) can handle variable length messages/ each message or 
message segment begins at the next available character position 
of the device. 

As part of the execution of the SEND statement/ the MCS 
interprets the contents of the TEXT LENGTH field to be the 
user's indication of the number of leftmost character positions 
of identifiei — 1 from which data is to be transferred. 

If the contents of the TEXT LENGTH field are 0/ no characters of 
data are transferred from i denti f i er-1 . (A TEXT LENGTH field 
is valid only with the Format 2 SEND statement.) 

If the contents of the TEXT LENGTH field are outside the range 
of through the size of identifier-1 inclusive/ an error is 
indicated in the STATUS KEY field/ and no data is transferred. 
(See Figure 81/ STATUS KEY Field — Possible Values.) 

If the user causes special control characters to be embedded as 
data characters within the message/ these control characters are 
enqueued with the message/ and it is the user's responsibility 
to ensure that these characters function as intended. 

The disposition of a portion of a message not terminated by an 
associated EMI or EGI is undefined. (However/ such a message 
portion will not be transmitted to the desti nati on. ) 



Format 1 Considerations 



a" X 
A single execution of a Format 1 SEND statement releases only a i 

single portion of a message or message segment to the MCS. \. J^ 



Format 2 Considerations 



The WITH phrase of this format allows the user to specify 
whether or not an end indicator is associated with the message 
or message segment. 

A single execution of a Format 2 SEND statement never releases 
to the MCS more than a single message or message segment/ as 
indicated by i denti fi er-2/ ESI/ EMI/ or EGI. 

When the FROM identifier-1 option is omitted/ then an end 
indicator is associated with the data enqueued by a previous 
SEND statement/ if any. 

Note that a message or message segment need not contain text 
data but may be comprised solely of an end indicator. 

Identifier-2 must specify a 1-character unsigned integer. The 
contents of identifiei — 2 indicate that the contents of 
identifiei — 1 have an end indicator associated with them 
according to the codes shown i n Figure 83. 

Any character other than 1/ 2, or 3 is interpreted as 0. 

If the contents of identifer-2 are other than 1/ 2, or 3/ and 
i denti fei — 1 is not specified/ or the output CD TEXT LENGTH field 
is 0/ then an error is indicated in the STATUS KEY field of the 
associated CD entry/ and no data is transferred. 



( 



/ 
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The hierarchy of end indicators^ and their meanings^ is as 
follows? 



If 

identifier-2 Then identifier-1 has 

contains: associated Mith it: Uhich means: 

No indicator No indicator 

1 ESI End of Segment Indi cator 

2 EMI End of Message Indicator 

3 EGI End of Group Indicator 
Figure 83. End Indicator Codes 



EGI End of Group Indicator — the group of messages to be 

transmitted is complete. For this implementation, the EGI 
has no special significance; however, because it does imply 
the presence of both EMI and ESI, it may be used to 
indicate completion of a message. If EGI is specified 
without accompanying message text immediately following the 
end of the preceding message, it is treated as comments 
(that is, it is ignored). 

EMI End of Message Indicator — the message to be transmitted is 
complete. 

ESI End of Segment Indicator — the segment to be transmitted is 
complete. 

An EGI need not be preceded by an EMI or ESI. An EMI need not 
be preceded by an ESI. 

ADVANCING OPTION^ For devices for which such positioning is 
applicable, this option allows control of the vertical 
positioning of each message or message segment. If vertical 
positioning is not applicable for the device, the MCS ignores 
the ADVANCING option. 

If WITH identifier-2 is specified, and identifiei — 2 does not 
contain 1, 2, or 3, the ADVANCING option is ignored by the MCS. 

If vertical positioning is applicable, the following rules 
apply: 

• When BEFORE ADVANCING is specified, the data is presented on 
the device before vertical repositioning. 

• When AFTER ADVANCING is specified, the data is presented on 
the device after vertical repositioning. 

• If identifiei — 3 or integer is specified, the device is 
repositioned downward the number of lines specified in 
identifiei — 3 or integer. 

• When mnemonic-name is specified, a skip to channels 1 
through 9, 10 through 12, or space takes place. 
Mnemonic-name must be equated with functi on-name-1 in the 
SPECIAL-NAMES paragraph (valid function-names are listed in 
the System Dependencies chapter). 

• If PAGE is specified, the device is repositioned to the next 
page. If PAGE has no meaning for this device, then the 
device is repositioned 1 line downward. 
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If the ADVANCING option is omitted^ automatic advancing is 
provided as if the user had specified AFTER ADVANCING 1 jr—x 
LINE. ^ 






J 
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DEBUGGING FEATURES 



The Debugging features specify the conditions under which data 
items or procedures are to be monitored during program 
executi on. 

COBOL source language debugging statements and background 
symbolic debugging (for which no source language changes are 
needed) are provided. In addition^ the Federal Information 
Processing Standard (FIPS) Flagger can be specified; the FIPS 
Flagger identifies source clauses and statements that do not 
conform to the Federal standard. Only the COBOL source language 
debugging statements and the FIPS Flagger are described in this 
chapter. 

The user decides what to monitor and what information to 
retrieve for debugging purposes. The COBOL debugging features 
merely provide access to pertinent information. 



COBOL SOURCE LANGUAGE DEBUGGING 



COBOL language elements that implement the Debugging feature 
are: a compile-time switch (WITH DEBUGGING MODE), an object-time 
switch, a USE FOR DEBUGGING Declarative, the special register 
DEBUG-ITEM, and debugging lines (which can be written in the 
Environment, Data, and Procedure Divisions). 



COHPILE-TIME SWITCH 






In the SOURCE-COMPUTER paragraph of the Configuration Section, 
the WITH DEBUGGING MODE clause acts as a compile-time switch. 

Format 

SOURCE-COMPUTER , computer-name [WITH DEBUGGING MODE ]. 

The WITH DEBUGGING MODE clause serves as a compile-time switch 
for the debugging statements written in the source progr&m. 

When WITH DEBUGGING MODE is specified, all debugging sections 
and debugging lines are compiled as specified in this chapter. 

When WITH DEBUGGING MODE is omitted, all debugging sections and 
debugging lines are treated as documentation. 



OBJECT-TIME SWITCH 



The object-time switch dynamically activates the debugging code 
generated when WITH DEBUGGING MODE is specified. 

When debugging mode is specified, through the object-time 
switch, all the debugging sections and debugging lines compiled 
into the object program are activated. 

When debugging mode is suppressed, through the object-time 
switch, any USE FOR DEBUGGING declarative procedures are 
inhibited. However, all debugging lines remain in effect. 

Recompi lati on of the source program is not required to activate 
or deactivate the object-time switch. 

When WITH DEBUGGING MODE is not specified in the SOURCE-COMPUTER 
paragraph, the object-time switch has no effect on execution of 
the object program. 
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USE FOR DEBUGGING DECLARATIVE 



( 



The USE FOR DEBUGGING sentence identifies the items in the ^^ 

source program that are to be monitored by the associated 
debugging Declarative procedure. 

Format 

section-name SECTION Cpri ori ty-number3 . 

USE FOR DEBUGGING 

J cd-name-1 ! 

I tALL REFERENCES 0F3 identifier-1 I 

ON < file-name-l > 

I procedure-name-1 I 

I ALL PROCEDURES I 



cd-name-2 

[ ALL REFERENCES 0F3 identifier-2 

file-name-2 

procedure-name-2 

ALL PROCEDURES 

L 

Uhen specified^ all debugging sections must be written together 
immediately after the DECLARATIVES header. 

Except for the USE FOR DEBUGGING sentence itself, within the 
debugging procedure there must be no reference to any 
nondeclarati ve procedure. 

Automatic execution of a debugging section is not caused by a 
statement appearing in a debugging section. 

A debugging section is not executed for a specific operand more 
than once as the result of the execution of a single statement, 
no matter how many times the operand is explicitly specified. 
An exception to this rule is that each specification of a 
subscripted or indexed identifier will cause invocation of the 
debugging declarative. For a PERFORM statement that causes 
repeated execution of a procedure, any associated procedure-name 
debugging declarative section is executed once for each 
repetition. 

For debugging purposes, each separate occurrence of an 
imperative verb within an imperative statement begins a separate 
statement. 

Statements appearing outside the debugging sections must not 
refer to procedure-names defined within the debugging sections. 

Except for the USE FOR DEBUGGING sentence itself, statements 
within a debugging declarative section may refer only through 
the PERFORM statement to procedure-names defined in a different 
USE procedure. 

Procedure-names within debugging declarative sections must not 
appear in any USE FOR DEBUGGING sentence. 

Figure 84 shows, for each valid option, the points during 
program execution when the USE FOR DEBUGGING procedures are 
executed. 

In Figure 84 on page 338, cd-name-n, i denti f i er-n, file-name-n, 
and procedure-name-n refer to the first and all subsequent 
specifications of that type of operand in one USE FOR DEBUGGING 
sentence. 



\:.J^ 



.> 
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Any given cd-name> identifier^ file-name^ or procedure-name may 
appear in only one USE FOR DEBUGGING sentence^ and only once in 
that sentence. 

An identifier in a USE FOR DEBUGGING sentence: 

[ IBM Extension 



Must not refer to any item in the Report Section except sum 
counters. 



End of IBM Extension 



• If it contains an OCCURS clause or is subordinate to an 
entry containing an OCCURS clause^ must be specified without 
the subscripting or indexing normally required. (A SEARCH 
or SEARCH ALL statement that refers to such an identifier 
Mill not invoke the USE FOR DEBUGGING procedures.) 

• Must not be a special register. 

When ALL PROCEDURES is specified in a USE FOR DEBUGGING 
sentence^ procedure-name-1 , procedure-name-2» and so forth, must 
not be specified in any USE FOR DEBUGGING sentence. The ALL 
PROCEDURES option may be specified only once in a program. 

When a USE FOR DEBUGGING operand is used as a qualifier, such a 
reference in the program does not activate the debugging 
procedures. 

References to the DEBUG-ITEM special register may only be made 
from within a debugging declarative procedure. 
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USE FOR DEBUGGING 
operand 



Upon execution of the folloMing» the USE FOR 
DEBUGGING procedures are executed immediately: 






cd-name-n 



i denti f i ei — n 



after ACCEPT/DISABLE/ENABLE/SEND cd-name-n after 
RECEIVE cd-name-n and NO DATA option not executed 

before REWRITE/WRITE i dentif ler-n and after FROM 
option move, if applicable 



before RELEASE identifier-n and after FROM option 
move (if applicable) 



ALL REFERENCES OF 
i denti f i ei — n 



after each i ni ti al i zati on> modification, or 
evaluation of identifier-n in PERFORM/VARYING/ 
AFTER/UNTIL identifier-n 

after any other COBOL statement explicitly referring 
to identifiei — n that changes its contents (see Note) 

before GO TO DEPENDING ON identifier-n control is 
transferred/ and before any associated debugging 
section for procedure-name is executed 

before REWRITE/WRITE identifier-n and after FROM 
option move, if applicable 



before RELEASE identifier-n and after FROM option 
move (if applicable) 



f i le-name-n 



pr ocedure-name-n 



ALL PROCEDURES 



after each initialization, modification, or 
evaluation of identifier-n in PERFORM/VARYING/ 
AFTER/UNTIL identifier-n 

after any other COBOL statement explicitly referring 
to identifiei — n (see Note) 

after CLOSE/DELETE/OPEN/START fi le-name-n 

after READ fi le-name-n and AT END/INVALID KEY not 
executed 

before each execution of the named procedure 

after execution of an ALTER statement referring to 
the named procedure 

before each execution of every nondebugging procedure 

after execution of every ALTER statement (except 
ALTER statements in Declarative procedures) 






Note: Operands acted upon but not explicitly named in such statements as ADD, MOVE, 
or SUBTRACT CORRESPONDING never cause activation of a USE FOR DEBUGGING procedure 
when such statements are executed. If identifiei — n is specified in a phrase that is 
not executed, the associated debugging section is not executed. 

Figure 84. Execution of Debugging Declaratives 



^W; 
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DEBUG-ITEM Special Register 






Format 



The DEBUG-ITEM special register provides information for a 
debugging declarative procedure. DEBUG-ITEM has the following 
implicit description. 



01 DEBUG-ITEM. 

02 DEBUG-LINE PICTURE 

02 FILLER PICTURE 

02 DEBUG-NAME PICTURE 

02 FILLER PICTURE 

02 DEBUG-SUB-1 PICTURE 

02 FILLER PICTURE 

02 DEBUG-SUB-2 PICTURE 

02 FILLER PICTURE 

02 DEBUG-SUB-3 PICTURE 

02 FILLER PICTURE 

02 DEBUG-CONTENTS PICTURE 



IS X(6). 

IS X VALUE SPACE. 

IS X(30). 

IS X VALUE SPACE. 

IS S9999 SIGN ISLEADING SEPARATE CHARACTER 

IS X VALUE SPACE. 

IS S9999 SIGN Is'lEADING SEPARATE CHARACTER 

IS X VALUE SPACE. 

IS S9999 SIGN Is'lEADING SEPARATE CHARACTER 

IS X VALUE SPACE. 

IS XCn). 






The DEBUG-ITEM special register provides information about the 
conditions causing debugging section execution. 

Before each debugging section is executed, DEBUG-ITEM is filled 
with spaces. The contents of the DEBUG-ITEM subfields are then 
updated according to the rules for the MOVE statement, with one 
exception^ DEBUG-CONTENTS is updated as if the move were an 
alphanumeric to alphanumeric elementary move without conversion 
of data from one form of internal representation to another. 
After updating, each field contains- 

DEBUG-LINE: The source-statement sequence-number or the 

compile? — generated card number, depending on the compiler option 

chosen. 

DEBUG-NAMEs The first 30 characters of the name causing 
debugging section execution. Any qualifiers are separated by 
the word "OF". (Subscripts or indexes are not entered in 
DEBUG-NAME.) 

DEBUG-SUB-1, DEBUG-SUB-2, DEBUG-SUB-3: If the DEBUG-NAME is 
subscripted or indexed, the occurrence number of each level is 
entered in the respective DEBUG-SUB-n. If the item is not 
subscripted or indexed, these fields remain spaces. 

DEBUG-CONTENTS: Data is moved into DEBUG-CONTENTS as shown in 
Figure 85. 
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Item causing debug 
section execution 


DEBUG-LINE 
contains number of 
COBOL statement 
referring to 


DEBUG-NAHE 
contains 


DEBUG-CONTENTS 
contains 


cd-name-n 


cd-name-n 


cd-name-n 


contents of 
cd-name-n area 


identifiei — n 


identi f i er-n 


i dentif i er-n 


contents of 
identifier-n when 
control passes to 
debug section 


f i le-name-n 


f i le-name-n 


f i le-name-n 


for READ; contents 
of record 
retrieved. Other 
references; spaces 


procedure-name- 1 
ALTER reference 


ALTER statement 


pr ocedu re- name- 1 


procedure-name-n 
in TO PROCEED TO 
phrase 


GO TO 
procedure-name-n 


GO TO statement 


procedure-^name-n 


spaces 


pr ocedure-name-n 
in SORT/MERGE 
INPUT/OUTPUT 
PROCEDURE 


SORT/MERGE 
statement 


procedure-name-n 


"SORT INPUT" "SORT 
OUTPUT" "MERGE 
OUTPUT" as 
appli cable 


PERFORM statement 
transfer of 
control 


this PERFORM 
statement 


procedure-name-n 


"PERFORM LOOP" 


procedure-name-n 
in a USE procedure 


statement causing 
USE procedure 
executi on 


procedure-name-n 


"USE PROCEDURE" 


implicit transfer 
from previous 
sequenti al 
procedure 


previous statement 
executed in 
previous sequential 
procedure (see 
note) 


procedure-name-n 


"FALL THROUGH" 


first execution of 
first 

nondeclarati ve 
procedure 


line number of 
first 

nondeclarati ve 
procedure-name 


first 
nondeclarati ve 


"START PROGRAM" 



^"^N 
.^^' 



'f^'"^ 
1,^' 



Figure 85. DEBUG-ITEM Subfield Contents 



DEBUGGING LINES 



Note to Figure 85? If this procedure is preceded by a section 
header and control is passed through the section header, the 
statement number refers to the section header. 



A debugging line is any line in a source program with a "D" 
coded in column 7 (the continuation area). If a debugging line 
contains nothing but spaces in Area A and Area B, it is 
considered a blank line. 

Each debugging line must be written so that a syntactically 
correct program results whether the debugging lines are compiled 
into the program, or treated as documentation. 

Successive debugging lines are permitted. Debugging lines may 
be continued; however, each continuation line must contain a "D" 
in column 7, and charactei — strings must not be broken across two 
li nes. 
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Debugging lines may be specified only after the OBJECT-COMPUTER 
paragraph. 

When the WITH DEBUGGING MODE clause is specified in the 
SOURCE-COMPUTER paragraph* all debugging lines are compiled as 
part of the object program. 

When the WITH DEBUGGING MODE clause is omitted^ all debugging 
lines are treated as documentation. 



FIPS FL AGGER 



„• 



The FIPS Flagger — depending on the compiler option 
chosen — identifies source statements and clauses that do not 
conform to either the current 1975 FIPS COBOL or the superseded 
1972 FIPS COBOL. 

1975 FIPS COBOL — or Federal Information Processing Standard 
COBOL r December 1975 — is a compatible subset of American 
National Standard COBOL, X3. 23-197'^. 1975 FIPS COBOL is 
subdivided into four levels^ full* hi gh-i ntermediate* 
low-intermediate, and low. Any program written to conform to 
1975 FIPS COBOL must conform to one of these levels of 1975 FIPS 
COBOL processing. (Figure 86 shows the 1974 Standard COBOL 
processing modules included in each of the levels of 1975 FIPS 
COBOL.) 
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1974 Standard 
Module 


Full FIPS 
Nodule 


High 

Intermediate 
FIPS Module 


LOM 

Intermediate 
FIPS Module 


LOM FIPS 
Nodule 


2 NUC 1,2 
(Nucleus) 


2 NUC 1,2 


2 NUC 1,2 


1 NUC 1,2 


1 NUC 1,2 


2 TBL 1,2 (Table 
Handli ng) 


2 TBL 1,2 


2 TBL 1,2 


1 TBL 1,2 


1 TBL 1,2 


2 SEQ 1,2 
(Sequential I-O) 


2 SEQ 1,2 


2 SEQ 1,2 


1 SEQ 1,2 


1 SEQ 1,2 


2 REL 0,2 
(Relative I-O) 


2 REL 0,2 


2 REL 0,2 


1 REL 0,2 




2 INX 0,2 
(Indexed I-O) 


2 INX 0,2 








2 SRT 0,2 
(Sort-Merge) 


2 SRT 0,2 


1 SRT 0,2 






1 RPW 0,1 
(Report Writer) 










2 SEG 0,2 
(Segmentati on) 


2 SEG 0,2 


1 SEG 0,2 


1 SEG 0,2 




2 LIB 0,2 
( L i brary) 


2 LIB 0,2 


1 LIB 0,2 


1 LIB 0,2 




2 DEB 0,2 
(Debug) 


2 DEB 0,2 


2 DEB 0,2 


1 DEB 0,2 




2 IPC 0,2 
(Inter-program 
Communi cat i on) 


2 IPC 0,2 


2 IPC 0,2 


1 IPC 0,2 




2 COM 0,2 
(Communi cat i on) 


2 COM 0,2 


2 COM 0,2 







A, 



(f'"^:. 

'A-.^ 



Figure 86. The 1974 Standard and 1975 FIPS COBOL 



The superseded Federal Information Processing Standard for COBOL 
was Federal Information Processing Standard COBOL, May 1972 — or 
1972 FIPS COBOL — a compatible subset of American National 
Standard COBOL, X3. 23-1968. 1972 FIPS COBOL, too, was 
subdivided into four levels. Any program written to conform to 
1972 FIPS COBOL must conform to one of those levels of 1972 FIPS 
COBOL processing, (Figure 87 shows the 1968 Standard COBOL 
processing modules included in each of the levels of 1972 FIPS 
COBOL.) 

The following lists identify COBOL source elements flagged for 
each level of both 1975 FIPS COBOL and 1972 FIPS COBOL, 



c 
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1968 Standard 
Nodule 


Full FIPS 
Module 


High 

intermediate 
FIPS Nodule 


LOM 

Intermediate 
FIPS Nodule 


LOM FIPS 
Nodule 


2 NUC 1,2 
(Nucleus) 


2 NUC 1,2 


2 NUC 1,2 


2 NUC 1,2 


1 NUC 1,2 


3 TBL 1,3 (Table 
Handling) 


3 TBL 1,3 


2 TBL 1,3 


2 TBL 1,3 


1 TBL 1,3 


2 SEQ 1,2 
(Sequent! al 
Access) 


2 SEQ 1,2 


2 SEQ 1,2 


2 SEQ 1,2 


1 SEQ 1,2 


2 RAC 0,2 
(Random Access) 


2 RAC 0,2 


2 RAC 0,2 


2 AC 0,2 




2 SRT 0,2 (Sort) 


2 SRT 0,2 


1 SRT 0,2 






2 RPW 0,2 
(Report Writer) 


— 








2 SEG 0,2 
(Segmentati on) 


2 SEG 0,2 


1 SEG 0,2 


1 SEG 0,2 




2 LIB 0,2 
(Li brary) 


2 LIB 0,2 


1 LIB 0,2 


1 LIB 0,2 





Figure 87. The 1968 Standard and 1972 FIPS COBOL 






1975 FIPS COBOL FLAGGING 



When flagging for elements not included in 1975 FIPS COBOL is 
specified (through a compiler option), the following elements of 
the COBOL source, if specified, are identified. Each level of 
flagging is listed separately. 



1975 Full FIPS COBOL Flagging 






When flagging for the full FIPS level is specified, the 
following elements, if specified, are identified. 

GLOBAL ITENS: as follows: 

Apostrophe used as quote 
Floating-point literals and data items 
Suppress option of COPY statement 
Special register CURRENT-DATE 
Special register LABEL-RETURN 
Special register LINE-COUNTER 
Special register PAGE-COUNTER 
Special register RETURN-CODE 
Special register SORT-CORE-SIZE 
Special register SORT-FILE-SIZE 
Special register SORT-MESSAGE 
Special register SORT-MODE-SIZE 
Special register SORT-RETURN 
Special register TALLY 
Special register TIME-OF-DAY 
Special register WHEN-COMPILED 

IDENTIFICATION DIVISION' as follows: 

ID DIVISION abbreviation 

Program-name in quotes 

Paragraphs not in order in Identification Division 

Hyphen in continuation area of Identification Division 

REMARKS paragraph 
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ENVIRONMENT DIVISION: as follows: 

Omission of Configuration Section (1 

Clauses not in order in I-0-CONTROL paragraph l^^y 

C»DrI»Rt or 14 organization in system-name 

ASSIGN TO system-name-1 clause OR system-name 

clause 

ASSIGN TO integer system-name clause 

Data-name instead of literal in FILE-LIMIT(S) IS 

(ARE) clause 

Multiple extents in FILE-LIMITCS) IS (ARE) clause 

ACTUAL KEY IS clause 

Short form of RERUN ON clause 

APPLY clause 

Mnemonic-name without alphabetic character 

NO or RESERVE ALTERNATE AREAS clause 

FILE-LIMIT(S) clause 

PROCESSING MODE clause 

MULTIPLE REEL or UNIT clause 

NOMINAL clause in SELECT sentence 

TRACK AREA or LIMIT clause in SELECT 

PASSWORD clause in SELECT sentence 

AS organization in system name 

COl through C12 function-names in SPECIAL-NAMES paragraph 

CSP function-name in SPECIAL-NAMES paragraph 

SOI to S02 function-names in SPECIAL-NAMES paragraph 

UPSI-0 to UPSI-7 function-names in SPECIAL-NAMES paragraph 

DATA DIVISION: as follows: 

Unequal level numbers at same group level 

in BLOCK CONTAINS or RECORD CONTAINS clause 

RECORDING MODE IS clause 

LABEL RECORDS clause in sort-file 

Data-name option of LABEL RECORDS clause 

TOTALING and TOTALED AREA option of LABEL RECORDS clause 

REPORTS clause in file-description ^ ^ 

Use of VALUE clause as comment in other than A. y 

condition-name entries 

SYNCHRONIZED clause at 01 level 

SYNCHRONIZED clause with USAGE IS INDEX 

DISPLAY-ST option of USAGE clause 

Omission of integer-1 to option of OCCURS DEPENDING ON 

clause 

Nesting of OCCURS DEPENDING ON clauses 

Omission of DEPENDING phrase in format-2 of OCCURS clause 

as integer-1 in format-2 of OCCURS DEPENDING ON 

clause 

Subsequent entries not subordinate in OCCURS DEPENDING 

ON clause 

Asterisk as zero suppression symbol and BLANK WHEN ZERO 

clause in same entry 

Numeric literal without sign in VALUE clause 

Numeric literal in VALUE clause for edited items 

REPORT SECTION 

COMP-1 option of the USAGE clause 

COMP-2 option of the USAGE clause 

COMP-3 option of the USAGE clause 

COMP-4 option of the USAGE clause 

COMPUTATIONAL-1 option of the USAGE clause 

COMPUTATIONAL-2 option of the USAGE clause 

COMPUTATIONAL-3 option of the USAGE clause 

COMPUTATIONAL-^ option of the USAGE clause 

PROCEDURE DIVISION: as follows: 

SKIPl 

SKIP2 

SKIP3 

Mnemonic-name without alphabetic character 

THEN used to separate sentences 

FROM SYSIN option of ACCEPT statement 

FROM CONSOLE option of ACCEPT statement 

WITH POSITIONING option of CLOSE statement 
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WITH DISP option of CLOSE statement 

DEBUG statement 

UPON CONSOLE option of DISPLAY statement 

UPON SYSPUNCH option of DISPLAY statement 

UPON SYSOUT option of DISPLAY statement 

ENTRY statement 

EXAMINE statement 

EXHIBIT statement 

GENERATE statement 

GO TO MORE-LABELS statement 

GOBACK statement 

INITIATE statement 

NOTE statement 

ON statement 

LEAVE option of OPEN statement 

REREAD option of OPEN statement 

DISP option of OPEN statement 

OTHERWISE in IF statement 

Use of negative indexes in PERFORM statement 

READY/RESET TRACE statement 

SEEK statement 

Semicolon in SORT statement 

USING KEY option of START statement 

Signed numeric literal in STOP statement 

TERMINATE statement 

TRANSFORM statement 

USE BEFORE REPORTING sentence 

GIVING option of USE statement 

LABEL PROCESSING option of USE statement 

AFTER POSITIONING option of WRITE statement 

1975 High-Intermediate PIPS COBOL Flagging 

When flagging for the high-intermediate FIPS level is specified^ 
all elements in the preceding list are flagged, plus the 
\ following additional COBOL source elements^ 

GLOBAL ITEMS: as follows: 

REPLACING option of COPY statement 
OF or IN option of COPY statement 
Pseudo-text option of COPY statement 
REPLACING literal BY option 

ENVIRONMENT DIVISION: as follows: 

SEGMENT-LIMIT clause 

SORT or SORT-MERGE option of SAME clause 

RECORD KEY clause 

INDEXED ORGANIZATION clause in SELECT sentence 

ALTERNATE RECORD KEY clause 

PROCEDURE DIVISION: as follows: 

All sections with the same priority not together 

All sections with priority numbers 00 thru 49 not together 

MERGE statement 

KEY option of READ statement 

Nondeclarati ve portion of program may contain only SORT statement 

and STOP RUN 

if SORT statement is used 

Use of more than one SORT statement 

COLLATING SEQUENCE in SORT statement 
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1975 LoM-lntermediate FIPS COBOL Flagging 



Uhen flagging for the low-intermediate FIPS level is specified/ /f^ 
all elements in the preceding lists are flagged^ plus the \_^ 

following additional COBOL source elementsV 

GLOBAL ITEMS: as follows: 

Comma or semicolon as punctuation 
Continuation of words or numeric literals 
Figurative constant ALL literal 
Figurative constant HIGH-VALUES 
Figurative constant LOW-VALUES 
Figurative constant QUOTES 
Figurative constant SPACES 
Figurative constant ZEROES 
Figurative constant ZEROS 

IDENTIFICATION DIVISION: as follows: 

DATE-COMPILED paragraph 

ENVIRONMENT DIVISION: as follows: 

RESERVE clause in SELECT sentence 

OPTIONAL in SELECT sentence 

RECORD option of SAME clause 

MULTIPLE FILE TAPE clause 

Literal phrase in alphabet-name clause 

ACCESS MODE IS DYNAMIC 

DATA DIVISION: as follows: 

SD level indicator 

One digit level number 

Level number greater than 10 _ 

Data-name beginning with nonalphabeti c character ^^ ^ 

66 or 88 number indicator U ^ 

Integer-1 TO option of BLOCfc CONTAINS clause ^^^ 

Data-name option of VALUE OF clause 

ASCENDING or DESCENDING KEY option of OCCURS clause 

DEPENDING ON option of OCCURS clause 

LINAGE clause 

Nesting of REDEFINES clauses 

Communication Section 

PROCEDURE DIVISION: as follows: 

Qualification of data-names and paragraph-names 

CORRESPONDING option 

Unary plus operator 

Use of AND OR and NOT in conditional relation 

Use of condition-name 

Use of arithmetic and relational symbols (+» -» x, 

XK, /, >, <, =) 

Sign condition 

ON OVERFLOW statement 

FROM in ACCEPT statement 

DAY DATE or TIME in ACCEPT statement 

CD MESSAGE COUNT in ACCEPT statement 

Multiple results in ADD statement 

GIVING series in ADD statement 

Multiple operands in ALTER statement 

CALL identifier statement 

CANCEL statement 

WITH NO REWIND option of CLOSE statement 

CLOSE FOR REMOVAL statement 

COMPUTE statement 

Series in COMPUTE statement 

DISABLE statement 

UPON option of DISPLAY statement 

REMAINDER in DIVIDE statement 

INTO or GIVING series of DIVIDE statement 

ENABLE statement 
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GO TO statement with no object 

IF statement nesting 

Series in INSPECT statement 

BY or GIVING series in MULTIPLY statement 

REVERSED option of OPEN statement 

WITH NO REWIND option of OPEN statement 

Multiple file-names in OPEN statement 

EXTEND option of OPEN statement 

UNTIL option of PERFORM statement 

VARYING option of PERFORM statement 

NEXT option of READ statement 

RECEIVE statement 

RELEASE statement 

FROM option of RELEASE statement 

RETURN statement 

INTO option of RETURN statement 

SEARCH statement 

SEND statement 

SORT statement 

START statement 

STRING statement 

Multiple results in SUBTRACT statement 

GIVING series in SUBTRACT statement 

UNSTRING statement 

EXTEND option of USE statement 

ALL IDENTIFIER option of USE FOR DEBUGGING sentence 

Non-integer number of lines in ADVANCING option of 

WRITE statement 

EOP or END-OF-PAGE option of WRITE statement 

File-name series in USE statement 



1975 LOW FIPS COBOL Flagging 






When flagging for the low FIPS level is specified* all elements 
in the preceding lists are flagged* plus the following 
additional COBOL source elements: 

GLOBAL items: as follows: 

Debug i tems 

COPY statement 

D in continuation area 

ENVIRONMENT DIVISION: as follows: 

RANDOM option of ACCESS MODE IS clause 

WITH DEBUGGING MODE clause 

RELATIVE ORGANIZATION clause in SELECT sentence 

RELATIVE KEY clause 

DATA DIVISION: as follows: 

Linkage Section 

PROCEDURE DIVISION: as follows: 

USING clause 

Priority number on section header 

CALL statement 

Multiple file-names in CLOSE statement 

WITH LOCK option of CLOSE statement 

Segment numbers in Declaratives 

DELETE statement 

EXIT PROGRAM statement 

INVALID KEY option of READ statement 

INVALID KEY option of REWRITE statement 

USE FOR DEBUGGING statement 
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1972 FIPS COBOL FLAGGING 



When flagging for elements not included in 1972 FIPS COBOL is 
specified (through a compiler option)* the following elements of 
the COBOL source* if specified* are identified. Each level of 
flagging is listed separately. 



1972 Full FIPS COBOL Flagging 



When flagging for the full FIPS level is specified* the 
following elements* if specified* are identified. 

GLOBAL ITEMS: as fol lows'- 

X comment line 

Apostrophe used as quote 

Floating-point literals and data items 

Debug i terns 

Slash ( / ) in continuation area 

SUPPRESS option of COPY statement 

D in continuation area 

OF or IN option of COPY statement 

Pseudo option of COPY statement 

REPLACING literal by option 

Two contiguous quotes 

Space preceding right parentheses 

Space preceding period comma or semicolon 

Space following left parentheses 

Omission of space before left parentheses 



Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 
Spec 



al register CURRENT-DATE 

al register LABEL-RETURN 

al register LINE-COUNTER 

al register PAGE-COUNTER 

al register RETURN-CODE 

al register SORT-CORE-SIZE ^ ^ 

al register SORT-FILE-SIZE f 

al register SORT-MESSAGE \y 

al register SORT-MODE-SIZE 

al register SORT-RETURN 

al register TALLY 

al register TIME-OF-DAY 

al register WHEN-COMPILED 



IDENTIFICATION DIVISION: as follows: 

ID DIVISION abbreviation 

Program-name in quotes 

Paragraphs not in order in Identification Division 

ENVIRONMENT DIVISION: as follows: 

Omission of Configuration Section 

Clauses not in order in SELECT sentence 

Clauses not in order in I-0-CONTROL paragraph 

ACTUAL KEY clause with sequential access to direct file 

C* D* I, R, or W organization in system-name 

Omission of IS in ACCESS MODE IS or ACTUAL KEY IS clauses 

FILE STATUS clause in SELECT sentence 

Short form of RERUN ON clause 

APPLY clause 

COPY statement in SELECT sentence 

WITH DEBUGGING MODE clause 

PROGRAM COLLATING SEQUENCE clause 

Alphabet-name clause 

Literal phrase in alphabet-name clause 

L slash ( / ) or equals ( = ) in CURRENCY SIGN clause 

ACCESS MODE IS DYNAMIC 

RECORD KEY clause 

ORGANIZATION clause in SELECT sentence 

RELATIVE ORGANIZATION clause in SELECT sentence J^A 

INDEXED ORGANIZATION clause in SELECT sentence i J 

ALTERNATE RECORD KEY clause ^^^ 

RELATIVE KEY clause 
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NOMINAL clause in SELECT sentence 

TRACK AREA or LIMIT clause in SELECT sentence 

PASSWORD clause in SELECT sentence 

AS organization in system-name 

COl through C12 function-names in SPECIAL-NAMES paragraph 

CSP function-name in SPECIAL-NAMES paragraph 

S01-S02 function-names in SPECIAL-NAMES paragraph 

UPSI-0 to UPSI-7 function-names in SPECIAL-NAMES paragraph 

DATA DIVISION: as folloMs- 

Unequal level numbers at same group level 

in BLOCK CONTAINS or RECORD CONTAINS clauses 

RECORDING MODE IS clause 

LABEL RECORDS clause in sort file 

TOTALING and TOTALED area option of LABEL RECORDS clause 

REPORTS clause in file-description 

Use of VALUE clause as comment in other than 

condition-name entries 

SYNCHRONIZED clause at 01 level 

SYNCHRONIZED clause with USAGE IS INDEX 

DISPLAY-ST option of USAGE clause 

SIGN clause 

Omission of integer — 1 TO option of OCCURS 

DEPENDING ON clause 

Nesting of OCCURS DEPENDING ON clauses 

77 items after 01 items 

B in alphabetic PICTURE charactei — string 

Slash ( / ) as editing character 

LINAGE clause 

Linkage Section 

Communication Section 

Report Section 

CODE-SET IS alphabet-name clause 

COPY statement for level 01 or 77 

COMP-1 option of the USAGE clause 

COMP-2 option of the USAGE clause 

COMP-3 option of the USAGE clause 

COMP-4 option of the USAGE clause 

COMPUTATIONAL-1 option of the USAGE clause 

COMPUTATIONAL-2 option of the USAGE clause 

COMPUTATIONAL-3 option of the USAGE clause 

COMPUTATIONAL-^ option of the USAGE clause 

PROCEDURE DIVISION: as follows: 

USING option 

SKIPl 

SKIP2 

SKIP3 

Omission of section header at beginning of 

Procedure Division 

Unary plus operator 

Omission of blank following unary minus operator 

Zero paragraphs in section 

Zero sentences in paragraph 

Omission of TO in EQUAL TO or relation condition 

ON OVERFLOW option 

THEN used to separate sentences 

FROM SYSIN option of ACCEPT statement 

FROM CONSOLE option of ACCEPT statement 

DAY, DATE, or TIME in ACCEPT statement 

CD MESSAGE COUNT in ACCEPT statement 

GIVING series in ADD statement 

CALL statement 

CALL identifier statement 

CANCEL statement 

WITH POSITIONING option of CLOSE statement 

WITH DISP option of CLOSE statement 

CLOSE FOR REMOVAL statement 

Series in COMPUTE statement 

Use of COPY statement in Procedure Division with other 

than section or paragraph name 

Segment numbers in Declaratives 
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DEBUG statement 

DELETE statement ^^--^ 

DISABLE statement i 

UPON CONSOLE option of DISPLAY statement i^y 

UPON SYSPUNCH option of DISPLAY statement 

UPON SYSOUT option of DISPLAY statement 

Signed literal operands of DISPLAY statement 

INOT or GIVING series of DIVIDE statement 

ENABLE statement 

ENTRY statement 

EXHIBIT statement 

EXIT PROGRAM statement 

GENERATE statement 

GO TO MORE-LABELS statement 

Omission of TO in GO TO statement 

GOBACK statement 

INITIATE statement 

INSPECT statement 

Series in INSPECT statement 

MERGE statement 

BY or GIVING series in MULTIPLY statement 

ON statement 

LEAVE option of OPEN statement 

REREAD option of OPEN statement 

DISP option of OPEN statement 

EXTEND option of OPEN statement 

OTHERWISE in IF statement 

Use of negative indexes in PERFORM statement 

Omission of INVALID KEY or AT END option in READ statement 

NEXT option of READ statement 

KEY option of READ statement 

READY/RESET TRACE statement 

RECEIVE statement 

REWRITE statement 

INVALID KEY option of REWRITE statement 

SEND statement . . 

Negative literal in format-2 of SET statement n ^ 

USING file-name series in SORT statement A. y 

COLLATING SEQUENCE in SORT statement 

START statement 

USING KEY option of START statement 

STRING statement 

GIVING series in SUBTRACT statement 

TERMINATE statement 

TRANSFORM statement 

UNSTRING statement 

USE BEFORE REPORTING sentence 

GIVING option of USE sentence 

EXTEND option of USE sentence 

EXCEPTION option of USE sentence 

File-name series in USE sentence 

USE FOR DEBUGGING sentence 

ALL IDENTIFIERS option of USE FOR DEBUGGING sentence 

AFTER POSITIONING option of WRITE statement 

EOP or END-OF-PAGE option of WRITE statement 

BEFORE or AFTER PAGE phrase of WRITE statement 

LINE instead of LINES 



1972 High-Intermediate FIPS COBOL Flagging 



When flagging for the high-intermediate FIPS level is specified, 
all elements in the preceding 1972 list are flagged, plus the 
following additional COBOL source elements? 

GLOBAL ITEMS: as follows^ 

REPLACING option of COPY statement 

ENVIRONMENT DIVISION: as follows: 

SEGMENT-LIMIT clause I 

SORT option of SAME clause ^-^ 
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DATA DIVISION*, as folloNs: 

ASCENDING or DESCENDING KEY option of OCCURS clause 
DEPENDING ON option of OCCURS clause 

PROCEDURE DIVISION: as follows: 

All sections with the same priority not together 

All sections with priority numbers 00 through ^9 not together 

FROM option of RELEASE statement 

INTO option of RETURN statement 

SEARCH statement 

Nondeclarati ve portion of program may contain only SORT statement 

and STOP RUN IF SORT statement is used 

Use of more than one SORT statement 



1972 LoM-Intermediate FIPS COBOL Flagging 



^,, 

\»^ 



Ulhen flagging for the low-intermediate FIPS level is specified, 
all elements in the preceding 1972 lists are flagged, plus the 
following additional COBOL source elements'* 

ENVIRONHENT DIVISION*, as follows: 

ASSIGN TO system-name-1 clause OR system-name clause 

DATA DIVISION: as follows: 

SD level indicator 

PROCEDURE DIVISION: as follows: 

RELEASE statement 
RETURN statement 
SORT statement 



1972 LOM FIPS COBOL Flagging 



When flagging for the low FIPS level is specified, all elements 
in the preceding 1972 lists are flagged, plus the following 
additional COBOL source elements: 

GLOBAL ITEMS: as follows: 

Comma or semicolon as punctuation 

Continuation of words or numeric literals 

COPY statement 

Figurative constant ALL literal 

Figurative constant HIGH-VALUES 

Figurative constant LOW-VALUES 

Figurative constant QUOTES 

Figurative constant SPACES 

Figurative constant ZEROES 

Figurative constant ZEROS 

IDENTIFICATION DIVISION: as follows: 

DATE-COMPILED paragraph 

ENVIRONMENT DIVISION: as follows: 

RESERVE clause in SELECT sentence 

OPTIONAL in SELECT sentence 

Data-name instead of literal in FILE-LIMIT(S) 

IS (ARE) clause 

Multiple extents in FILE-LIMIT(S) IS (ARE) clause 

RANDOM option of ACCESS MODE IS clause 

ACTUAL KEY IS clause 

RECORD option of SAME clause 

MULTIPLE FILE TAPE clause 
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DATA DIVISION*, as follows: 

One digit level number \i 

Level number greater than 10 \a^^ 

Data-name beginning with nonalphabeti c character 

66 or 88 level number 

Integer-1 TO option of BLOCK CONTAINS clause 

Data-name option of LABEL RECORDS clause 

Data-name option of VALUE OF clause 

Nesting of REDEFINES clauses 

Multiple index-names in OCCURS clause 

PROCEDURE DIVISION: as follows: 

Priority number on section header 

Qualification of data-names and paragraph-names 

Use of multiple subscripts 

CORRESPONDING option 

Use of AND OR and NOT in conditional relation 

Use of condition-name 

Use of arithmetic and relational symbols (+» -, ^, 

^^, /f If I, =) 

FROM in ACCEPT statement 

Multiple results in ADD statement 

Multiple operands in ALTER statement 

Use of multiple file-names in CLOSE statement 

WITH LOCK option of CLOSE statement 

WITH NO REWIND option of CLOSE statement 

COMPUTE statement 

DECLARATIVES sentence 

END DECLARATIVES sentence 

UPON option of DISPLAY statement 

REMAINDER in DIVIDE statement 

GO TO statement with no object 

IF statement nesting 

REVERSED option of OPEN statement ^ ^ 

WITH NO REWIND option of OPEN statement 1. , 

Multiple file-names in OPEN statement ^^ 

UNTIL option of PERFORM statement 

VARYING option of PERFORM statement 

INTO option of READ statement 

INVALID KEY option of READ statement 

SEEK statement 

UP BY or DOWN BY option of SET statement 

Use of multiple index-names or identifiers in 

SET statement 

Multiple results in SUBTRACT statement 

USE sentence 

FROM option of WRITE statement 

Noninteger number of lines in ADVANCING option of 

WRITE statement 

Sign condition 
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SYSTEM DEPENDENCIES 



y 



CD ENTRY FOR INPUT 



This chapter documents system-dependent COBOL language elements 

Throughout this manual, IBM COBOL-oriented terms are used to 
describe elements of the sequential, indexed, and relative I-O 
modules. These terms, together with their OS/VS equivalents, 
are listed in Figure 88. 



IBM COBOL-oriented Term 


OS/VS System Equivalent 


physical sequential 


QSAM (queued sequential access 
method) 


VSAM sequential 


VSAM ESDS (VSAM entry 
sequenced file) 


VSAM indexed 


VSAM KSDS (VSAM keyed 
sequential file) 


VSAM relative 


VSAM RRDS (VSAM relative 
record file) 



Figure 88. Equivalent 1-0 Terms — IBM COBOL and OS/VS 

In this chapter, language elements are arranged in alphabetic 
order; if within a language element clauses must be written in a 
specified order, they are listed in that order; if no specific 
order is required, the clauses are listed in alphabetic order. 



In the SYMBOLIC QUEUE and SUB-QUEUE clauses, the first 8 
characters of the data-name must match the DD name of the DD 
statement for the queue or sub-queue. 






FD ENTRY 



The following considerations apply. 

I IBM Extension 



BLOCK CONTAINS CHARACTERS CLAUSE 



This clause may be specified for physical sequential files; th< 
block size is determined at object time from the DD parameters 
or the data set label. 

If the RECORD CONTAINS CHARACTERS clause is specified, and 
BLOCK CONTAINS CHARACTERS option is used (or if the BLOCK 
CONTAINS clause is omitted), then the block size is determined 
at object time from the DD parameters or the data set label of 
the f i le. 



RECORD CONTAINS CHARACTERS CLAUSE 



This clause may be specified for input physical sequential 
files; the record size is determined at object time from the DD 
parameters or the data set label. If at object time the actual 
record is larger than the 01 record description, only the 01 
record length is available. If the actual record is shorter, 
only the actual record length may be referred to or results will 
be unpredictable. 
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Note: If the BLOCK CONTAINS or the RECORD CONTAINS clause 
is specified, then the SAME AREA or SAME RECORD AREA clause may 
not be specified. 



Recording Node 



End of IBM Extension 



For physical sequential files, the COBOL compiler scans each 
record description entry to determine the recording mode. The 
recording mode may be fixed (F)> variable (V), or spanned (S). 

RECORDING MODE F: All the records in a file &re the same length 
and each is wholly contained within one block. Blocks may 
contain more than one record, and there is usually a fixed 
number of records per block. In this mode, there are no 
record-length or block-descriptor fields. 

RECORDING MODE V: The records may be either fixed or variable in 
length, and each must be wholly contained in one block. Blocks 
may contain more than one record. Each data record includes a 
record-length field, and each block includes a block-descriptor 
field. These fields are not described in the Data Division; 
provision is automatically made for them. These fields are not 
available to the user. 

RECORDING MODE S: The records may be either fixed or variable in 
length, and may be larger than a block. If a record is larger 
than the remaining space in a block, a segment of the record is 
written to fill the block. The remainder of the record is 
stored in the next block (or blocks, if required). Only 
complete records are made available to the user. Each segment 
of a record in a block, even if it is the entire record, 
includes a segment-descriptor field, and each block includes a 
block-descriptor field. These fields are not described in the 
Data Division; provision is automatically made for them. These 
fields are not available to the user. 

For a given physical sequential file, the compiler determines 
the recording mode as follows^ 

F 

if all the records are defined as being the same size, and 
the size is smaller than or equal to the block size. 

For blocked F-mode records, the BLOCK CONTAINS clause is 
requi red. 

V 

if the records are defined as variable in size, or if the 
RECORD CONTAINS clause specifies variable size records, and 
the longest record is smaller than or equal to the block 
size. 

For V-mode records, the BLOCK CONTAINS clause is required. 

S 

if the maximum block size is smaller than the largest 
record size. 

For S-mode records, the BLOCK CONTAINS CHARACTERS clause is 
required. 



System Dependencies 355 



FILE-CONTROL ENTRY 



ASSIGN Clause 



The following considerations apply. 

The assignment-name has the following formats 

[comments-3CS-]name physical sequential files 

Ccomments-]AS-name VSAM sequential files 

Ccomments-]name VSAM indexed or relative files 

The comments field is treated as documentation. If specified* 
it must end with a hyphen. The comments field is useful for 
documenting the device and device class to which a file is 
assi gned. 

For physical sequential files, the S- (organization) field may 
be omitted. 

For VSAM sequential files the AS- (organization) field must be 
specified. 

For VSAM indexed and relative files the organization field must 
be omitted. 

The name field is required. It is a 1- to 8-character field 
that specifies the external name for this file. It must be the 
name specified in the DD statement for this file. It must 
conform to the rules for formation of a program name; it must 
not be a COBOL reserved word. 



c 



PASSUORD Clause 



r 



For indexed fi 
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processing (in 
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IBM Extension 
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End of IBM Extension 



RESERVE Clause 



The integer must not exceed 255. If the RESERVE clause is 
omitted, two buffers are reserved; if both RESERVE and SAME AREA 
are omitted, the number of buffers at execution time is taken 
from the DD statement for the file; if none is specified, two 
buffers are reserved. 






356 IBM VS COBOL for OS/VS 



I-0-CONTROL ENTRY 



SAME Clause 



Restrictions on specifying the SAME clause &r&' 
I IBM Extension 



The SAME AREA clause must not be specified when the BLOCK 
CONTAINS CHARACTERS or RECORD CONTAINS CHARACTERS is 
speci f i ed. 

The SAME RECORD AREA clause must not be specified uihen the 
RECORD CONTAINS CHARACTERS clause is specified. 



End of IBM Extension 



MULTIPLE FILE TAPE CLAUSE 



This clause is treated as documentation; the function is 
performed by the system through the LABEL parameter of the DD 
statement. 



INPUT/OUTPUT STATEMENTS 



OPEN Statement 



o 



The following considerations apply for the OPEN, WRITE* and 
CLOSE statements. 



Ulhen OPEN REVERSED is specified, the recording mode may be fixed 
(F). 

The OPEN INPUT and OPEN I-O options are valid for files which 
have not yet been loaded; note, however, that in this case any 
input/output request except a WRITE statement for an 1-0 file 
results in an error condition. 



WRITE ADVANCING Statement 



A compile-time option determines whether or not the first 
character in the record must be reserved for the ADVANCING 
control character. 



IBM Extension 



CLOSE Statement 



If a CLOSE statement for an OPEN file is not executed before a 
GOBACK statement in a main program, results are unpredictable. 
(See Program Termination Considerations in the following 
Subprogram Linkage description.) 



End of IBM Extension 



REPORT WRITER — RECORD CONTAINS CLAUSE 



I IBM Extension 



o 



No matter which compile-time control option is specified, the 
RECORD CONTAINS clause must always include the UlRITE ADVANCING 
control character as part of the record. 



End of IBM Extension 
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SD ENTRY FOR SORT/MERGE 



In the SD Entry, the LABEL RECORDS clause is accepted and 
treated as documentation. 

The minimum acceptable record length is 18 bytes; the maximum 
acceptable record length is 32752 bytes. 



m f^. 



SOURCE PROGRAM LIBRARY 

For the COPY statement, the OF/IN option is treated as 
documentation. 

SPECIAL-NAMES PARAGRAPH 

funct i on-name-1 ♦ can be chosen from the 1 i st shoMn in Figure 89 



Function-Name 


- — ■- — 1 

Meaning 


Used in 


SYSIN 


system logical input unit 


ACCEPT statement 


SYSOUT 


system logical output unit 


DISPLAY statement 


CONSOLE 


console typewriter 


ACCEPT and DISPLAY 
statements 


COl through C12 


skip to channel 1 through 
12, respectively 


WRITE ADVANCING and SEND 
ADVANCING statement 


CSP 


suppress spacing 


WRITE ADVANCING and SEND 
ADVANCING statement 


S01>S02 


pocket select 1 or 2 on 
punch devices 


WRITE ADVANCING 
statement 


1-character nonnumeric 
literal* 


report writer report code 


CODE clause 






Figure 89. Valid Names of Funct i on-Name-1 



)<This is also an IBM Extension. 

function-name-2 ' UPSI-0 through UPSI-7 are COBOL names that 
identify program switches defined outside the COBOL program, in 
the communications region. Their contents slT^ considered to be 
alphanumeric. 



IBM Extension 



SPECIAL REGISTERS 



The following special registers are available to the COBOL user. 



RETURN-CODE 



RETURN-CODE has the implicit description PICTURE S9999 COMP, and 
can be set by the user to pass a return code to the invoking 
program or the system before executing a STOP RUN, EXIT PROGRAM, 
or GOBACK statement. (See the fallowing paragraphs on 
Subprogram Linkage.) When control is returned to the invoking 
program, the code passed by the called program is stored in the 
calling program's RETURN-CODE special register. The compiler 
initializes the field to zero (0), which is the normal return 
code for successful completion; other values returned s^r^A 
conventionally in multiples of 4. However, the maximum value 
the field can contain is 4095. 



'^> 
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SORT-CORE-SIZE 



The return code can be used to determine subsequent job or job 
step execution flow. 



Placing the following value in SORT-CORE-SIZE takes advantage of 
the "maximum" storage parameter of the Sort/Merge program^ 

4.999999 specifies that Sort/Merge should use all main 
storage available to it. 

Negative integer specification tells COBOL to use the absolute 
value as the number of bytes to reserve for data management 
routines. (In this case» Sort/Merge uses the CORE parameter it 
was installed with^ including the maximum main storage 
parameter. ) 



SORT-MESSAGE 






SORT-MESSAGE has the implicit description PICTURE X(8) DISPLAY. 
If Sort/Merge is installed to route messages to the printer, 
then the user can specify the ddname in SORT-MESSAGE to which 
the Sort/Merge program is to route messages in place of SYSOUT. 
If SORT-MESSAGE is not modified during the program, SYSOUT is 
the default value. 

For example: If MOVE "SORTDDNM" TO SORT-MESSAGE is executed 
before the Sort/Merge is begun, messages will be routed to 
SORTDDNM instead of to SYSOUT. 

Note: Use of the SORT-MESSAGE special register is strongly 
recommended. If SORT-MESSAGE is not used in the COBOL program 
and if the system opens SYSOUT and the COBOL program then 
attempts to use it, unpredictable results can occur; in 
addition, Sort/Merge messages are then interspersed with other 
unrelated messages from this and other programs. When 
SORT/MESSAGE is used, all Sort/Merge messages can be sent to an 
alternative destination and can then be printed in one separate 
easily-identified group. 



SORT-RETURN 



If there is no reference to SORT-RETURN in the program, and the 
Sort/Merge terminates abnormally, a message is displayed on the 
console. The operator can continue or cancel the job. 

The SORT-RETURN special register can also be used to terminate 
the OS Sort/Merge Program Product operation. The programmer can 
place the value 16 in this special register at any point during 
ar\ Input or Output Procedure to terminate the Sort or Merge 
immediately after execution of the next RELEASE or RETURN 
statement.. 



UHEN-CONPILED 



o 



WHEN-COMPILED is a 20-byte alphanumeric field with the format : 

hour.minute.secondMONTH DAY, YEAR 
(hh.mm.ssMMM DD, YYYY) 

WHEN-COMPILED makes available to the object program the 
date-and-time-compi led constant carried in the object module; it 
is valid only as the sending field in a MOVE statement. 

If compilation began at ^531 p.m. on June 10*, 1981, 
WHEN-COMPILED would contain the value 16.31.00JUN 10, 1981 
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Note: WHEN-COMPILED may not be moved directly to a user-defined 
edited field for further editing. So inserting a blank between 
the 'second' and 'MONTH' fields, for example, is accomplished by 
setting up two fields^ 



FIELDA 
FIELDB 



PIC X(20) 

PIC X(8)BX(12) 



( 



'\. 



WHEN-COMPILED is first moved into FIELDA, which is then moved 
into FIELDB for the editing. 



End of IBM Extension 



STATUS KEY VALUE 96 



SUBPROGRAM LINKAGE 



Linkage Section 



CALL Statement 



A value of 96 means that no DD statement has been specified for 
this VSAM file. 



The following considerations for Subprogram Linkage apply. 



The total number of entries in the Linkage Section (01-level and 
77-level combined) must not exceed 255. 



The mode of the CALL 
through the EXEC job 
static mode. 



statement (static or dynamic) is specified 
control statement; the default option is 



At object time, when the dynamic CALL statement is used, the 
COBOL Library Management Facility must be used by the main 
program and all subprograms in one region/partition. Otherwise, 
multiple copies of library subroutines may be resident at one 
time and cause unpredictable results. 

Called subprograms that are invoked at object time by the 
dynamic CALL statement must be members of the system link 
library or of a usei — supplied private library. 

The static call statement results in the subprogram so invoked 
being link-edited with the main program into one load module. 
Thus, the program-name and the alternate entry point can be 
specified in any order in the main program's CALL statements. 

The dynamic CALL statement results in the dynamic invocation of 
a separate load module at execution time. In this case, for the 
CANCEL statement to work properly, alternative entry points for 
one subprogram should not be specified unless an intervening 
CANCEL statement has been executed. 



/ "' 



Static and dynamic CALL statements may both be specified in the 
same program. The CALL literal-2 statement results, in this 
case, in the subprogram so invoked being link-edited with the 
main program into one load module. The CALL identifiei — 3 
statement results in the dynamic invocation of a separate load 
module. When a dynamic CALL statement and a static CALL 
statement to the same subprogram are issued within one prograntf 
a second copy of the subprogram is loaded. Therefore, care must 
be used to avoid duplicate load modules. 

Note: Linking two load modules together results logically in a 
single program with a primary entry point and an alternate entry 
point, each with its own name. (Each name by which a subprogram 
is to be dynamically invoked must be known to the system; each 
such name must be specified in linkage editor control statements 
as either a NAME or an ALIAS of the load module containing the 



o 
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USING Option 






subprogram.) Only if user modules are link-edited with the 

attribute of nonreentrant and nonserially-reusable will a CANCEL 

statement guarantee a fresh copy of the subprogram upon a 
subsequent CALL. 

If a called subprogram has more than one entry point* differing 
entry points can be called without an intervening CANCEL only if 
the module has been link-edited with an attribute of either 
reentrant or reusable. In those cases* the module being called 
will be in its last-used state. 



If the called subprogram is written in a language other than 
COBOL* a CALL statement USING identifier may be a file-name for 
a physical sequential file, or a data-item defined in the file, 
Working-Storage, or Linkage Section of the calling program. 
When a file-name is specified, the file it identifies must be 
opened in the calling program. 

At execution time, the USING option may be used to pass 
parameters from the EXEC job control statement to a main COBOL 
program. In this case, a USING option on the Procedure Division 
header of a main program may contain identifiei — 1 as its only 
operand. Information from the FARM field of the EXEC statement 
is then available in the Linkage Section at the location 
specified as identifiei — 1. The first two bytes of identifiei — 1 
contain a count of the number of bytes of information in the 
FARM field; the two bytes are set to i f the FARM field was 
omitted. This 2-byte field is binary and should be defined with 
PIC S9(4) COMF. Immediately following these two bytes is the 
information in the FARM field. The maximum length of the field 
to be passed is 100 bytes. 

When the first two bytes of identifiei — 1 contain a count of 0, 
no storage is allocated for the field following the count bytes 
and references to it may cause unpredictable results. 

Note? When a valid COBOL execution-time option (for example, 
/FLOW=20) is specified at the end of the FARM field, the count 
of the number of bytes of information in the FARM field is 
decreased to exclude the slash and all characters to its right 
before the FARM field is passed to a main COBOL program. If the 
FARM field contains any slashes, an additional slash should be 
added to the end, and the FARM field will be decreased from this 
last slash. If the data after the last slash is not a valid 
execution-time option, it is removed from the FARM and an error 
message is issued. 



Program Termination Statements 



A main program is the highest level COBOL program invoked in a 
step. A subprogram is a COBOL program invoked by another COBOL 
program. (Other language programs that follow COBOL linkage 
conventions are considered COBOL programs in this sense.) 

Figure 90 shows the action taken for each program termination 
statement in both a main program and a subprogram. 
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Termination 
Statement 

EXIT 
PROGRAM 

STOP RUN 



Main Program 

Nonoperati onal 



Return to invoker^ 
(may be system and 
cause end of job 
step) 



Subprogram 

Return to 
program 



i nvoki ng 



Return directly to 
invoker of main 
program^ (may be 
system and end job 
step) 



C 



GOBACK 



Return to invoker)( 
(may be system and 
cause end of job 
step) 



Return to invoking 
program 



)< If a main program is called by a program written in another 
language that does not follow COBOL linkage conventions^ 
return will be to this calling program. 

Figure 90. Program Termination Statements — Actions Taken 



> 






362 IBM VS COBOL for OS/VS 



PART 7. SUPPLEMENTARY MATERIAL 



APPENDIX A. IBM OS Full ANS COBOL Items (IBM Extension) 

APPENDIX B. ASCII Considerations 

APPENDIX C. System/370 Unit Record Processing 

APPENDIX D. Intermediate Results 

APPENDIX E. Sample File-Processing Programs 

APPENDIX F. OS/VS COBOL Reserved Word List 

APPENDIX G. EBCDIC and ASCII Collating Sequences 

APPENDIX H. COBOL Statements Flagged by Specifying MIGR 

COBOL Glossary 
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APPENDIX A. IBM OS FULL ANS COBOL ITEMS — CIBM EXTENSION) 



J IBM Extension 



This appendix contains language elements of IBM OS Full American 
National Standard COBOL supported by OS/VS COBOL — language that 
is» in effect an extension to American National Standard COBOL » 
X3. 23-197^. These language extensions are supported for 
compatibility purposes only. 

The IBM OS Full American National Standard COBOL compilers are 
designed according to the specifications for the highest level 
of all eight modules of American National Standard COBOL; 
X3.23-1968» as well as IBM extensions to that standard. 

The IBM OS/VS COBOL compiler incorporates all language elements 
from IBM OS Full American National Standard COBOL; with two 
exceptions: In OS/VS COBOL the MESSAGE COUNT clause replaces 
the QUEUE DEPTH clause, and the ACCEPT MESSAGE COUNT statement 
replaces the IF MESSAGE statement. 

OS/VS COBOL allows the user at compile time to request an "old" 
or "new" object module through a compiler option** 

• The "old" compiler option tells the compiler to interpret 
certain COBOL language elements according to the 1968 
Standard. 

• The "new" compiler option tells the compiler to interpret 
the same COBOL elements according to the 1974 Standard. 



SECTION I — I/O LANGUAGE EXTENSIONS 



The input/output language extensions listed in this section can 
be used with either the "new" or the "old" compiler options. 



FILE PROCESSING CAPABILITIES 



Uithin a given access method, old and new language elements may 
be used interchangeably, if such elements are available. That 
is, for a physical sequential file, both the FILE STATUS clause 
and the RECORDING MODE clause can be specified for one file. 
(Note that old indexed, direct and relative file processing 
language is the only language valid for ISAM, BSAM, and BDAM 
files. Conversely, only new file processing language is valid 






(f 



The three sections of this appendix document three types of i 
extensions** ^-..^^ 

• Section I — input/output language elements that either 
support the 1968 standard or are extensions to both the 1968 
and 1974 standards and for which either the "old" or the 
"new" compiler option may be specified 

• Section II — other language elements that either support the 
1968 standard or are extensions to both the 1968 and 1974 
standards and for which either the "old" or the "new" 
compiler option may be specified 

• Section III — language elements that support the 1968 
standard for which the "old" compiler option must be 
specified 

This appendix describes language elements within each category. 
Sections II and III document any differences between the old 
compiler and the new compiler. 



o 
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for VSAM indexed files.) OS Full American National Standard 
COBOL file processing capabilities are shouin in Figure 91. 
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Indexed 
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FILE CONTROL PARAGRAPH 



ACCESS MODE SEQUENTIAL or ACCESS MODE RANDOM may be specified 
with the clauses in this section. The FILE-LIMITS clauses and 
PROCESSING MODE clauses are accepted and treated as 
documentat i on . 



ASSIGN Clause 



O 



The ASSIGN clause is used to assign a file to an external 
medium. The FOR MULTIPLE REEL/UNIT option is accepted and 
treated as documentation. 

Assignment-name has the following format and capabilities* 

Format 

SYSnnn-class-device-S [-name] 

The class and device fields ar& treated as documentation. 

Organization is a 1-character field that indicates the file 
organization. The following characters must be used* 

S for files with standard sequential organization. 

D for files with direct organization. 

UJ for files with direct organization when REWRITE is used. 

Ulhen the file is opened as INPUT or OUTPUT* however* W is the 
equivalent of D. 

R for files with relative organization. 

I for files with indexed organization. 
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ACTUAL KEY Clause 



Name is a 1- to 8-character field specifying the external-name 
by which the file is known to the system. It is the name that 
appears in the name field of the DD card for the file. 



Mhen creating or retrieving records from a randomly accessed 
file» the programmer is responsible for providing the ACTUAL KEY 
for each record to be processed. 

Format 

ACTUAL KEY IS data-name 

Data-name may be any fixed item from 5 through 259 bytes in 
length. It must be defined in the File» Working-Storage* or 
Linkage Section. However, if data-name is specified in the File 
Section, it may not be contained in the file for which it is the 
key. The following considerations apply* 

• The first four bytes of data-name are the track identifier 
and must be defined as a 5-integer binary data item whose 
maximum value does not exceed 65535. 

• The remainder of data-name — 1 through 255 bytes in 

length — represents the record identifier. It is the user's 
responsibility to select from 1 through 255 bytes for the 
symbolic portion of the ACTUAL KEY field. Data within these 
bytes will be treated exactly as specified. 



'V 



NOHINAL KEY Clause 



The NOMINAL KEY clause specifies a search argument for indexed 
or relative files. 

Format 

NOMINAL KEY IS data-name 

INDEXED FILES! Data-name may specify any fixed-length 
Working-Storage item from 1 through 255 bytes in length. 

Data-name must be at a fixed displacement from the beginning of 
the record description in which it appears; that is, it may not 
appear in the entry subsequent to an OCCURS DEPENDING ON clause. 

In random processing, the symbolic identity of the record must 
be placed in data-name before execution of the READ, WRITE, or 
REWRITE statement. 

The symbolic identity is used when retrieving or updating a 
record to locate the logical record with a matching RECORD KEY 
or, when adding a record, to create the key that will be 
associated with the record. 

In sequential processing, a NOMINAL KEY must be specified if a 

Format-1 START statement is used. When the START statement is 

executed, the contents of data-name are used to locate the 

record at which processing is to begin. The next READ statement 
accesses this record. 

RELATIVE FILES' Data-name may specify any 8-integer binary item 
in Working-Storage whose maximum value does not exceed 157286^0. 

Data-name must be at a fixed displacement from the beginning of 
the record description in which it appears; that is, i t may not 
appear in the entry subsequent to an OCCURS DEPENDING ON clause. 

The relative record number must be placed in data-name before 
the execution of the READ, WRITE, or REWRITE statement. 
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RECORD KEY Clause 

A RECORD KEY is used to access an indexed file. It specifies 
the item within the data record that contains the key for the 
record. 

Format 

RECORD KEY IS data-name 

The RECORD KEY clause must be specified for an indexed file. 

Data-name may be any fixed-length item within the record. It 
must be less than 256 bytes in length. 

Uhen two or more record descriptions am associated with a file* 
a similar field must appBar in each description* and must be in 
the same relative position from the beginning of the record* 
although the same data-name need not be used for both fields. 

Data-name must be defined to exclude the first byte of the 
record in the following cases! 

• Files with unblocked records 

• Files from which records are to be deleted 

• Files whose keys might start with a delete-code character 
(HIGH-VALUE) 

Ulith these exceptions* the item specified by data-name may 
appear anywhere within the record. 

TRACK-AREA Clause 

i!t\ This clause may optionally be used when records are to be added 

^y to an indexed file in the random access mode. Efficiency in 

adding a record is improved when the TRACK-AREA clause is 
specified. 

Format 

I data-name i 
TRACK-AREA IS < > CHARACTERS 

I integer i 

L J 

Ulhen records are to be added to random access files with indexed 
organization* this clause specifies either an area (data-name) 
or the size of an area (integer). The area is used to hold all 
the blocks on a track* including their count and key fields* 
plus one logical record. 

I The area defined by the TRACK-AREA clause must be a multiple of 

I 8 and must not exceed 65272 bytes. 

When the integer option is specified* an area of integer bytes 
is obtained from the system when the file is opened. It is 
released to the system when the file is closed. 

Uhen the data-name option is specified* data-name must specify 
an item described with a 01- or 77-level number in the 
Working-Storage Section. 

If a record is added to an indexed file* and the TRACK-AREA 
clause was not specified for the file* the contents of the 
NOMINAL KEY field are unpredictable after a WRITE statement is 
executed. 



o 
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TRACK-LIMIT Clause 



Format 



TRACK-LIMIT IS integer 



TRACK 1 

I 

TRACKS I 



This clause does not cause track allocation^ Mhich is 
function of a DD card parameter. 



the 



SEQUENTIAL ACCESS: When used in conjunction with ACCESS IS 
SEQUENTIAL and a file is opened as OUTPUT, if the last relative 
track number used by the file when it is closed is less than 
that specified in the TRACK-LIMIT clause> the unused portion(s) 
of the track(s) is filled either with capacity records (mode U> 
V, or S) or with dummy records (mode F). If the last relative 
track number used by the file is equal to or greater than that 
specified in the TRACK-LIMIT clause, or if the clause is 
omitted, a capacity record or dummy records are written for the 

and the remaining allocated tracks 
that, because the first relative 
integer plus one track will be 



current track of the file, 
are not initialized. Note 
track is track 0, at least 
i ni tiali zed. 



RANDOM ACCESS-* When used in conjunction with ACCESS 
the TRACK-LIMIT clause specifies the last relative 
to be initialized at open time; the tracks are init 
dummy (mode F) or capacity (modes U, V, or S) recor 
defines the total size of the file? that is, no add 
tracks may be used by the file, and any references 
outside this area will result in an INVALID KEY con 
this clause is omitted, the number of tracks initia 
determined from the SPACE and VOLUME count paramete 
card. The first volume will be initialized accordi 
primary allocation quantity, and succeeding volumes 
will be initialized from the secondary quantity (on 
per volume) . 



IS RANDOM, 
track number 
ialized with 
ds. This 
i ti onal 
to tracks 
di ti on . If 
lized is 
rs of the DD 
ng to the 

(if any) 
e quantity 
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I-0-CONTROL PARAGRAPH 



RERUN Clause 



The I-0-CONTROL paragraph defines some of the special techniques 
to be used in the program. For example, it specifies when 
checkpoints are to be taken, the storage areas to be shared by 
different files, and the location of files on a multiple file 
reel. The I-0-CONTROL paragraph and its associated clauses are 
optional. 



Current formats for the RERUN clause are valid for "old" file 
organizations. The following notes apply. 

END-OF-REEL/UNIT OPTION: This option is valid for sequentially 
accessed files with any organization. 

RECORDS OPTION: This option is valid for sequentially accessed 
or randomly accessed files with any organization. The value of 
the integer must not exceed 16777215. 



MULTIPLE FILE TAPE Clause 



"New" implementation of the MULTIPLE FILE TAPE clause is valid 
for tape files with "old" sequential organization. 
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APPLY Clause 



There are several options of the APPLY clause. More than one of 
each option may appear. 

Format for Option 1 

APPLY MRITE-ONLY ON file-name-1 Cf i le-name-23 ... 

This option is used to make optimum use of buffer and device 
space allocated uihen creating a file uhose recording mode is V. 
Usually^ a buffer is truncated Mhen there is not enough space 
remaining in it to accommodate the maximum size record. Use of 
this option will cause a buffer to be truncated only when the 
next record does not fit in the unused remainder of the buffer. 
This option has meaning only when the file is opened as OUTPUT. 

The files named in this option must have standard sequential 
organi zati on. 

Every WRITE statement associated with the file must use the 
WRITE record-name FROM identifier option. None of the subfields 
of record-name may be referred to in procedural statements^ nor 
may any of the subfields be the object of an OCCURS DEPENDING ON 
clause. 

However^ if the same file is opened for INPUT or I-0» the 
subfields of the record-name may be referred to. When the same 
file is opened for I-O, the WRITE statement must not be used; 
the REWRITE statement must be used in its place. 

Format for Option 2 

APPLY CORE-INDEX ON file-name-1 [f i le-name-2] ... 

This option may be specified only for an indexed file whose 
access mode is random. It is used to specify that the highest 
level index is to be processed in main storage. The area will 
be obtained at open time and released at close time. 

Format for Option 3 

APPLY RECORD-OVERFLOW ON file-name-1 [fi le-name-23 ... 

If the record overflow feature is available for the direct 
access storage device being used» the amount of unused space on 
a volume may be reduced by specifying this option for files on 
that volume. If the option is usedr a block that does not fit 
on the track is partially written on that track and continued on 
the next available track. 

This option may be specified only for a standard sequential file 
(with F» U, or V mode records) assigned to a direct access 
storage device* or a direct file with fixed-length records. 

Format for option 4 

APPLY REORG-CRITERIA TO data-name ON file-name 

If the "reorganization criteria" feature was specified on the DD 
card for an indexed file when it was created, this option may be 
specified for the file when ACCESS IS RANDOM is specified. 

The reorganization statistics maintained by the system will be 
placed in data-name when a CLOSE statement is executed for the 
file. Data-name must be composed of three COMPUTATIONAL items 
of 2, Z, and 4 bytes in length, respectively. 

The first 2 bytes will contain the number of cylinder overflow 
areas that are full. The second 2 bytes will contain the number 
of tracks (partial or whole) remaining in the independent 
overflow area. The last 4 bytes will contain the number of READ 
or WRITE statements that accessed overflow records that are not 
the first in the chain of such records. 
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DATA DIVISION 



FD ENTRY 



Most clauses in the FD Entry have the same effect in both the 
old and the new standards. The following clauses, from the IBM 
American National Standard COBOL Compilers, are accepted by the 
OS/VS and DOS/VS Compilers. 



LABEL RECORDS Clause 



The LABEL RECORDS clause with the data-name option, indicates 
the presence of either user standard labels or nonstandard 
labels. 



Format 



r RECORD IS ] \ OMITTED 1 

LABEL < > I STANDARD I 

I RECORDS ARE i < data-name-1 [data-name-23 ... [ TOTALING AREA > 

IS data-name-3 TOTALED AREA IS I 

data-name-43 I 



L J 



labels in addition to standard labels, or the presence of 






The STANDARD option must be specified for files with indexed 
organi zati on. 

In the discussion that follows, all references to data-name-1 
apply equally to data-name-2. 

The data-name-1 option indicates either the presence of user ,r 



nonstandard labels. Data-name-1 specifies the name of a user \^.J^ 
label record. Data-name-1 must appear as the subject of a 
record description entry associated with the file, and must not 
appear as an operand of the DATA RECORDS clause for the file. 

If user labels are to be processed, data-name-1 may be specified 
only for direct files, relative files, or for standard 
sequential files with the exception of files assigned to 
unit-record devices. 

If nonstandard labels are to be processed, data-name-1 may be 
specified only for standard sequential files, with the exception 
of files assigned to unit-record devices. The length of a 
nonstandard label may not exceed 4095 character positions. 

All Procedure Division references to data-name-1, or to any item 
subordinate to data-name-1, must appear within label processing 
declarat i ves. 

Note? In the discussion that follows, the term volume applies 
to all input/output devices. Treatment of a direct access 
storage device in the sequential access mode is logically 
equivalent to the treatment of a tape file. 

The TOTALING and TOTALED AREA option may be specified when the 
programmer wants to create a sequential file with user labels. 
With this option, the programmer is able to obtain exact 
information about each volume of a multivolume file, so that the 
information can be recorded in the user trailer label each time 
a volume switch occurs. 

Data-name-3, the TOTALING AREA, is defined in the 
Working-Storage Section. Data-name-3 is used by the programmer 
to store information to be used in constructing the user 
labels — information such as accumulated totals for records, 
identification fields within the current record, and so forth. 
Before each WRITE statement is issued, the programmer must store 
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information associated with the current record in data-name-3. 
There &re two except ions^ If the SAME RECORD AREA and/or the 
APPLY WRITE-ONLY clause is specified^ then the programmer must 
store the current record information in data-name-3 after 
issuing the WRITE statement. The information in data-name-3 is 
always associated (by the system) with the current WRITE 
statement. 

Data-name-4, the TOTALED AREA, must be defined at the 01 level 
in the Linkage Section, and must contain fields described as 
identical with those within data-name-3. The system allocates 
the space for data-name-4 and uses it to save user label 
information (obtained from data-name-3) associated with the most 
recent record actually written on the current volume. Thus, 
when a volume switch occurs, data-name-4 contains the user label 
information for the last record actually written on the current 
volume, and the programmer can use data-name-4 to construct an 
accurate trailer label for the current volume, and an accurate 
header label for the next. 

For both data-name-3 and data-name-4, the user must define the 
first two bytes of each record for use by the system. 

The TOTALING and TOTALED AREA option may not be specified for S 
mode records. 



RECORDING MODE Clause 



The RECORDING MODE clause specifies the format of the logical 
records in the file. 

Format 

RECORDING MODE IS mode 

Mode is specified as? F, V, U, or S, 

F mode (fixed-length format) may be specified when all the 
logical records in a file are the same length and each is wholly 
contained within one physical block. This implies that no 
OCCURS DEPENDING ON clause is associated with an entry in any 
record description for the file. If more than one record 
description entry is given following the FD entry, all record 
lengths calculated from the record descriptions must be equal. 

V mode (variable-length format) may be specified for any 
combination of record descriptions if each record is wholly 
contained in one physical block. A mode V logical record is 
preceded by a control field containing the length of the logical 
record. Blocks of variable-length records include a 
block-descriptor control field. V mode may not be specified for 
files with indexed or relative organization. 

U mode (unspecified format) may be specified for any combination 
of record descriptions, if each record is wholly contained in 
one physical block, and the block contains only one physical 
record. It is comparable to V mode except that U mode records 
are not blocked and have no preceding control field. U mode may 
not be specified for files with indexed or relative 
organization. 

S mode (spanned format) may be specified for any combination of 
record descriptions. If a record is larger than the remaining 
space in a block, a segment of the record is written to fill the 
block. The remainder of the record is stored in the next block 
(or blocks, if required). Only complete records are made 
available to the user. Each segment of a record in a block, 
even if it is the entire record, includes a segment-descriptor 
field, and each block includes a block-descriptor field. These 
fields &r& not desribed in the Data Division; provision is 
automatically made for them. These fields are not available to 
the user. S mode may be specified for standard sequential or 
direct files. 
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When the RECORDING MODE clause is not used to specify the 
recording mode of the records in the file, the COBOL compiler 4^^ 
scans each record description entry to determine it. The m 

recording mode may be F (fixed), U (unspecified), V (variable), ^■^' 
or S (spanned). 

RECORDING MODE F: All the records in a file ere the same length 
and each is wholly contained within one block. Blocks may 
contain more than one record, and there is usually a fixed 
number of records per block. In this mode, there are no 
record-length or block-descriptor fields. 

RECORDING MODE Ui The records may be either fixed or variable in 
length. However, there is only one record per block. There are 
no record-length or block-descriptor fields. 

RECORDING MODE V^ The records may be either fixed or variable in 
length, and each must be wholly contained in one block. Blocks 
may contain more than one record. Each data record includes a 
record-length field and each block includes a block-descriptor 
field. These fields are not described in the Data Division; 
provision is automatically made for them. These fields &re not 
available to the user. 

RECORDING MODE S^ The records may be either fixed or variable in 
length, and may be larger than a block. If a record is larger 
than the remaining space in a block, a segment of the record is 
written to fill the block. The remainder of the record is 
stored in the next block (or blocks, if required). Only 
complete records are made available to the user. Each segment 
of a record in a block, even if it is the entire record, 
includes a segment-descriptor field, and each block includes a 
block-descriptor field. These fields are not described in the 
Data Division; provision is automatically made for them. These 
fields are not available to the user. 

For standard sequential files, the compiler determines the (1 

recording mode for a given file to be' ^^ 

F if all the records are defined as being the same size and the 
size is smaller than or equal to the block size. 

V if the records are defined as variable in size, or if the 
RECORD CONTAINS clause specifies variable size records and 
the longest record is less than or equal to the maximum block 
si ze. 

S if the maximum block size is smaller than the largest record 
size. 

For direct files, the compiler determines the recording mode for 
a given file to be^ 

F if all the records are defined as being the same size and the 
size is smaller than or equal to the block size. 

U if the records are defined as variable in size, or if the 
RECORD CONTAINS clause specifies variable size records and 
the longest record is less than or equal to the maximum block 
size. 

S if the maximum block size is smaller than the largest record 
size. 

Files with indexed organization must have F mode records. 

Note: ASCII considerations for compiler calculation of 
recording mode are given later in this Appendix. 



PROCEDURE DIVISION DECLARATIVES 



In segmented programs, priority numbers must not be specified in 
Declarative procedures. 
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Label Declaratives — Format 1 

Label Declaratives alloM the user to process labels. 
Format 1 



r BEFORE 1 [ BEGINNING 1 

USE < > STANDARD | I 

1 AFTER 1 I ENDING I 



LABEL PROCEDURE ON 



{f^ le-name} 

OUTPUT 

INPUT 

I-Q 

EXTEND 



REEL 1 
FILE I 
UNIT J 

. .1 






Ulhen BEFORE is specified* it indicates that nonstandard labels 
are to be processed. Nonstandard labels may be specified only 
for tape files. 

Uhen AFTER is specified, it indicates that user labels follow 
standard file labels, and are to be processed. 

Notes ASCII considerations for user label-handling procedures 
are given later in this appendix. 

The labels must be listed as data-names in the LABEL RECORDS 
clause in the file description entry for the file, and must be 
described as level -01 data items subordinate to the file entry. 

If neither BEGINNING nor ENDING is specified, the designated 
procedures are executed for both beginning and ending labels. 

If UNIT, REEL, or FILE is not included, the designated 
procedures are executed for REEL or UNIT, whichever is 
appropriate, and for FILE labels. The REEL option is not 
applicable to direct access storage files. The UNIT option is 
not applicable to files in the random access mode, since only 
FILE labels are processed in this mode. 

If FILE is specified, the designated procedures are executed at 
beginning-of-f i le (on first volume) and/or at end-of-f i le (on 
last volume) only. If REEL or UNIT is specified, the designated 
procedures are executed at begi nni ng-of-volume (on each volume 
but the first) and/or at end-of-volume (on each volume but the 
last). Both BEGINNING and ENDING label processing is executed 
if BEGINNING or ENDING has not been specified. 

The same file-name may appear in different specific arrangements 
of Format 1. However, appearance of a file-name in a USE 
statement must not cause the simultaneous request for execution 
of more than one USE declarative. 

If the file-name option is used, the file description entry for 
file-name must not specify a LABEL RECORDS ARE OMITTED clause. 

The file-name must not represent a sort-file. 

The EXTEND option is valid for sequential files. 

The user label procedures are executed as follows when the 
OUTPUT, INPUT, or I-O options are specified: 

• When OUTPUT is specified, only for files opened as OUTPUT 

• Mhen INPUT is specified, only for files opened as INPUT 

• Uhen 1-0 is specified, only for files opened as 1-0 
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If the INPUT, OUTPUT, or I-O option is specified, and an input, 

output, or input/output file, respectively, is described with a J^"^ 

LABEL RECORDS ARE OMITTED clause, the USE procedures do not 1. 

apply. V.^ 

The standard system procedures are performed? 

• Before or after the user's beginning or ending input label 
check procedure i s executed 

• Before the user's beginning or ending output label is 
created 

• After the user's beginning or ending output label is 
created, but before it is written on tape 

• Before or after the user's beginning or ending input/output 
label check procedure is executed 

Within the procedures of a USE declarative in which the USE 
sentence specifies an option other than file-name, references to 
common label items need not be qualified by a file-name. A 
common label item is an elementary data item that appears in 
every label record of the program, but does not appear in any 
data record of this program. Such items must have identical 
descriptions and positions within each label record. 

The exit from a Format 1 declarative section is inserted by the 
compiler following the last statement in the section. All 
logical program paths within the section must lead to the exit 
point. 

There is one exception' A special exit may be specified by the 

statement GO TO MORE-LABELS. Ulhen an exit is made from a Format 

1 declarative section by means of this statement, the system 

will do one of the following-' ,< ~A 

• Write the current beginning or ending label and then reenter ^.-^ 
the USE section at its beginning for further creating of 

labels. After creating the last label, the user must exit 
by executing the last statement of the section. 

• Read an additional beginning or ending label, and then 
reenter the USE section at its beginning for further 
checking of labels. When processing user labels, the 
section will be reentered only if there is another user 
label to check. Hence, there need not be a program path 
that flows through the last statement in the section. For 
nonstandard labels, the compiler does not know how many 
labels exist. Therefore, the last statement in the section 
must be executed to terminate nonstandard label processing. 

If a 60 TO MORE-LABELS statement is not executed for a user 
label, the declarative section is not reentered to check or 
create any immediately succeeding user labels. 

When reading nonstandard header labels, it is the user's 
responsibility to read any tape marks that are used to terminate 
labels. The GO TO MORE-LABELS exit must be used, and the 
declarative must recognize that a tapemark rather than data is 
being read. The final exit from the declarative must not be 
taken until the file is positioned just before the first data 
record. 
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The programmer must set special register LABEL-RETURN to nonzero 
if the nonstandard header label of an input file is not correct. 

LABEL-RETURN is an alphanumeric item whose PICTURE is X. It may 
be used to indicate the validity of nonstandard labels. At the 
completion of a USE BEFORE STANDARD LABEL PROCEDURE for an input 
file, the programmer must set LABEL-RETURN to indicate the 
validity of the nonstandard label. 

After the nonstandard trailer labels are processed, the system 
determines from the DD statement if another reel is to be read 
or if the current reel is the end of the file. If the current 
reel is the last one for the file, the statement executed is the 
one specified in the AT END phrase of the READ statement that 
detected the end-of-reel condition. If the current reel is not 
the last, a volume-switch takes place, the header label is 
processed, and the first record on the reel is read. 



Error Declaratives — Format 2 






Error Declaratives specify procedures to be followed if an 

input/output error occurs. 

Format 2 

USE AFTER STANDARD ERROR PROCEDURE 



[fi 



le-name-1 [f i le-name-2] ... 
I INPUT 

ON < > 

I OUTPUT I 

I JEo I 

L J 

GIVING data-name-1 [data-name-2] . 

USE declaratives that specify error handling procedures are 
activated when an input/output error occurs during execution of 
a READ, WRITE, REWRITE, or START statement. 

Automatic system error routines are executed before 
usei — specified procedures. 

Within the error procedure, the allowable statements that may be 
executed depend on the organization and access specified for the 
file in error. 

When the file-name option is used, error handling procedures are 
executed for input/output errors occurring for the named file(s) 
only. 

A file-name must not be referred to, implicitly or explicitly, 
in more than one Format 2 USE sentence. 

The user error procedures are executed, when the INPUT, OUTPUT, 
or I-O option is specified and an input/output error occurs, as 
follows^ 

• When INPUT is specified, only for files opened as INPUT 

• When OUTPUT is specified, only for files opened as OUTPUT 

• When 1-0 is specified, only for files opened as 1-0 



Appendix A. IBM OS Full ANS COBOL Items — (IBM Extension) 375 



An exit from this type of declarative section can be effected by 
executing the last statement in the section (normal return), or ff"^' 
by means of a 60 TO statement. U 

The normal return from an error declarative i s to the statement 
following the input/output statement that caused the error. 

User error handling procedures are executed for invalid key 
conditions if the INVALID KEY option is not specified in the 
statement causing the condition. 

Uhen the GIVING option is used and an error declarative section 
is entered, data-name-l will contain the information shown in 
Figure 92 for non-VSAM files only. 

The GIVING option may be specified with multiple file-names, or 
any of the INPUT/OUTPUT/I-0 options. 

Data-name-1 must be a 136-byte item. It must be defined in the 
Working-Storage Section. For additional information, see the 
appropriate Programmer's Guide. 

If specified, data-name-2 contains the block in error for a READ 
operation, if data was transmitted. For a WRITE, REWRITE, or 
START operation, data-name-2 must not be referred to. 

Data-name-2 must be an item large enough to hold the largest 
physical block which exists or which will be processed. It must 
be defined in the Working-Storage or Linkage Section. If 
data-name-2 is defined in the Linkage Section, the block in 
error is referenced in the buffer ar^Si', no storage need be 
defined for the error block. 
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Byte Information 

0-7 System use 

08-13 Output Operations always blanks 
Input Operation^ 
Bytes 8-11 • Input Buffer Address 
(used for data-nanie-2) » or blanks 
Bytes 12-135 Number of bytes transmitted (size or error block) or blanks 

14-48 Blanks 

49 

50-57 Jobname 

58 

59-66 Stepname 

67 

68-70 Unit address 

71 

72-73 Device-type 

74 

75-82 ddname 

83 

84-89 Operation attempted 

90 

91-105 Error description 

106 

107-127 The contents of this field depend on the type of input/output 
device in use» as follows: 

For unit record* 107-120 Asterisks 

121 
122-127 Access method 

For magnetic tape, 107-113 Block count (in decimal) 

114 

115-119 Access method 

120-127 Blanks 

For direct access storage, 

107-120 Last actual address, in 

the form BBCCHHR 

(in hexadecimal) 
121 
122-127 Access method 

128-135 System use 

Figure 92. Information Supplied With the GIVING Option Uhen an Error Declarative is 
Entered 
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Notes for Figure 92 

1. If data uias transmitted during the input operation* bytes 8 
through 13 contain binary data. If no data Mas transmi tted* 
bytes 8 through 13 are blank. 

2. Bytes 49 through 127 > unless otherwise indicated* &re in 
printable EBCDIC representation. 

3. Bytes 91 through 105 (Error Description) contain a brief 
description of the type of error that occurred. The 
description is provided by the system error analysis 
procedures* and is placed into bytes 91 through 105 upon 
entry into the Error Declarative. 

For example* if the FD for an input file described 
120-character records* and if at execution time the file 
actually contained lOO-character records* then uihen a read 
operation Mas attempted an error Mould occur* and the system 
would return the message "WRN. L EN. RECORD". 



f^- 



INPUT/OUTPUT STATEMENTS 



The statements described in this section give results identical 
Mith IBM OS Full American National Standard COBOL. 

Valid clauses and statements for each type of file processing 
are summarized as folloMS"* 

• Figure 93 — Standard Sequential Files 

• Figure 94 — Direct Files 

• Figure 95 — Indexed Files 

• Figure 96 — Relative Files 






c 
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Device 
Type 


Required Entries 


Optional Entries 


















Other ENVIRONMENT 


BLOCK 


RECORDING 






System-name 


LABEL RECORDS 


OPEN 


CLOSE 


Access Verbs 


APPLY3 


RESERVE 


ACCESS 


DIVISION Clauses 


CONTAINS* 


MODE 


USE 


Reader 


UR [xxxxl-S-name 


OMITTED 


INPUT 


ILOCKl 


READ [INTOl 
AT END 




I integer 
NO 1 


SEQUENTIAL 


SAME [RECORD) AREA 
RERUN 


[nTOl m 


e 


ERROR 


Punch 


UR [xxxxl-S-name 


OMITTED 


OUTPUT 


[LOCK] 


WRITE [FROMl 

.(before 

Hafter ^^^''^^c'^^l 

[AFTER POSITIONINGl 


WRITE-ONLY 
(V-mode only) 


I integer 
\ NO 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[n TO] m 


B 


ERROR 


Printer 


UR [-xxxxl-S-name 


OMITTED 


OUTPUT 


[LOCKl 


WRITE [FROMl 

.(before 

[ ADVANCINGl 
(AFTER 1 

[AFTER POSITIONINGl 


WRITE-ONLY 
(V-mode only) 


integer | 
NO 1 

NO 


SEQUENTIAL 


SAME [RECORD] AREA 
RERUN 


[n TO] m 


13 


ERROR 
REPORTING 


[END-OF-PAGEl 


Tape 


UT [-xxxxl -S-name 


^STANDARD "V 


INPUT 


[REELl 


READ [INTOl 


WRITE-ONLY 


j integer 1 


SEQUENTIAL 


SAME [RECORD] AREA 


[n TO] m 


en 


LABEL 






1 OMITTED 1 


REVERSED 


LOCK 


AT END 


(V-mode only) 


NO 




RERUN 




r\ 


ERROR 






^ data-name \ 


LnO REWIND, 


NO REWIND 










MULTIPLE FILE TAPE 




rl 








[TOTALING-j 


LEAVE 


POSITIONING 














Is; 








TOTALED] j 


REREAD 
LDISP J 


DISP 
















LABEL 


OUTPUT 


[REELl 


WRITE^ [FROMl 








[NO REWIND! 

Tleave ~j 


LOCK 

NO REWIND 


(before 

[ ADVANCINGl 

after 














ERROR 
REPORTING 








REREAD 
j_DISP J 


positioning 
[disp 


[AFTER POSITIONINGl 
















Direct 


|UT 

(-xxxxl -S-name 


[standard \ 


INPUT 


[UNITl 


READ [INTOl 


RECORD-OVERFLOW 


j integer | 


SEQUENTIAL 


SAME [RECORD] AREA 


[n TOl m 


(H 


AFTER LABEL 


Storage 




1 OMITTED 1 

\ data-name > 

[TOTALING-J 




[LOCKl 


AT END 


(not for S-mode) 


1 ^° 1 




RERUN 




" 


ERROR 






















[J 








TOTALEDl ) 


OUTPUT 


[UNITl 
[LOCKl 


WRITE^ [FROMl 

INVALID KEY 

WRITE^ [FROMl 

.(before! 

[|^p^^^] ADVANCINGl 
[AFTER POSITIONINGl 


WRITE-ONLY 
(V-mode only) 












AFTER LABEL 

ERROR 

REPORTING 

AFTER LABEL 


1-0 


[LOCKl 


READ [INTOl 












AT END 














ERROR 












WRITE2 [FROMl 


























INVALID KEY 


























REWR1TE2 [FROMl 




















^ Create 


^Update •'These APPLY clauses have meaning only for OUTPUT files; however, *Not for U-mode 
the compiler accepts them when the same file is opened for INPUT or l-O. 
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Required Entries 



[SEQUENTIAL] 



[SEQUENTIAL] 



RANDOM 



RANDOM 



[ACTUAL] 



ACTUAL 



ACTUAL 



ACTUAL 



System- name 



DA [-xxxxJ-D-name 



DA [-xxxx]-D-name 



DA [-xxxx] -D-name 



DA [-xxxx] -W-name 



LABEL RECORDS 



[STANDARD! 
[ data-name J 



STANDARD » 
, data-name / 



STANDARD^ 
data-name / 



DA [-xxxx] -W-name 



f STANDARD! 
. data-name i 



I STANDARD! 
I data-name f 



OUTPUT 



OUTPUT 



[UNIT] 
[LOCK] 



[UNIT] 
[LOCK] 



[LOCK] 



[LOCK] 



LOCK] 



[LOCK] 



OUTPUT 



[LOCK] 



[LOCK] 



Access Verbs 



READ [INTO] 
AT END 



WRITE^ [FROM] 
INVALID KEY 



SEEK 

READ [INTO] 
INVALID KEY 



SEEK 

WRITE'' [FROM] 
INVALID KEY 



SEEK 

READ [INTO] 

INVALID KEY 
WRITE^ [FROM] 

INVALID KEY 



SEEK 

READ [INTO] 
INVALID KEY 



SEEK 

WRITE^ [FROM] 
INVALID KEY 



SEEK 

READ [INTO] 

INVALID KEY 
WRITE^ [FROM] 

INVALID KEY 
REWRITE* [FROM] 

(INVALID KEY] 



Optional Entries 



RECORDING 
MODE 



APPLY^ 



RECORD-OVERFLOW 



RECORD-OVERFLOW 



RECORD-OVERFLOW 



Other ENVIRONMENT 
DIVISION Clauses 



SAME [RECORD] AREA 
RERUN 



SAME [RECORD] AREA 

TRACK-LIMIT 

RERUN 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
TRACK-LIMIT 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



SAME [RECORD] AREA 
TRACK-LIMIT 
RERUN ON RECORDS 



SAME [RECORD] AREA 
RERUN ON RECORDS 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



AFTER LABEL 
ERROR 



' Create 



^Update and add 



^Add 



^Update 



^These APPLY clauses have meaning only for OUTPUT files; however, the compiler accepts them when the same 
file is opened for INPUT or 1-0. 
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Required Entries 


Optional Entries 


ACCESS 


KEY 


System-name 


LABEL RECORDS 


OPEN 


CLOSE 


Access Verbs 


APPLY 


RESERVE 


Other ENVIRONMENT 
DIVISION Clauses 


RECORDING 
MODE 


BLOCK 
CONTAINS 


USE 


[SEQUENTIAL] 


RECORD 

RECORD 
NOMINAL 

"record 

[NOMINAL] 

RECORD 

RECORD 

RECORD 
NOMINAL 
RECORD 
[NOMINAL] 


DA [-xxxx] -l-name 


STANDARD 


INPUT 


[LOCK] 


READ [INTO] 
AT END 




(integer) 
\ NO / 


SAME [RECORD] AREA 
RERUN 


F 


m 


ERROR 


START 

[INVALID KEY] 


START 

USING KEY 
[INVALID KEY] 


OUTPUT 


[LOCK] 


WRITE' [FROM] 
INVALID KEY 


l-O 


[LOCK] 


READ [INTO] 

AT END 
REWRITE^ [FROM] 

[INVALID KEY] 


START 

[INVALID KEY] 


START 

USING KEY 
[INVALID KEY] 


RANDOM 


RECORD 
NOMINAL 


DA [-xxxx] -l-name 


STANDARD 


INPUT 


[LOCK] 


READ [INTO] 
INVALID KEY 


reorg-criteria" 
core-index 


NO 


SAME [RECORD] AREA 
RERUN ON RECORDS 


F 


m 


ERROR 


l-O 


[LOCK] 


READ [INTO] 
INVALID KEY 

WRITE^ [FROM] 
INVALID KEY 

REWRITE^ [FROM] 
[INVALID KEY] 


SAME [RECORD] AREA 
TRACK-AREA 
RERUN ON RECORDS 


1 Create ^update •'Add "This APPLY clause has meaning only for OUTPUT files; however, the compiler accepts it when the 

same file is opened for INPUT or l-O. 
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Required Entries 


Optional Entries 


ACCESS 


KEY 


System-name 


LABEL RECORDS 


OPEN 


CLOSE 


Access Verbs 


Other ENVIRONMENT 
DIVISION Clauses 


RECORDING 
MODE 




[SEQUENTIAL] 


[NOMINAL] 


DA [-xxxx] -R-name 


r STANDARD^ 
I data-name 1 


INPUT 


[UNIT] 
[LOCK] 


READ [INTO] 
AT END 


SAME [RECORD] AREA 
RERUN 

APPLY RECORD-OVERFLOW 


F 


ERROR 
AFTER 
LABELS 


OUTPUT 


[UNIT] 
[LOCK] 


WRITE^ [FROM] 
INVALID KEY 


RANDOM 


NOMINAL 


DA [-xxxx] -R-name 


1 STANDARD \ 
\ data-name / 


INPUT 


[LOCK] 


READ [INTO] 
INVALID KEY 


SAME [RECORD] AREA 
RERUN ON RECORDS 

APPLY RECORD-OVERFLOW 


F 


ERROR 
AFTER 
LABELS 


l-O 


[LOCK] 


READ [INTO] 
INVALID KEY 

REWRITE^ [FROM] 
[INVALID KEY] 


'' Create ^(jpjjate 



( 



> 



OPEN Statement 






START Statement 



The OPEN statement initiates the processing of files. 
Format 



OPEN [INPUT {file-name 



REVERSED 



LEAVE 
REREAD 
1 WITH NO REMIND | | DISP 



1 [ 



}...] 



[ OUTPUT {file-name [WITH NO REWIND ] 
[I-O {file-name}...] 



\ LEAVE 1 

I REREAD I }. . .] 

I DISP I 

L J 



Except for subsequent input/output statements^ the OPEN 
statement does not make the buffer area available to the COBOL 
program. 

If one is specified by a USE sentence in the Declaratives 
Section, the OPEN statement causes the user's beginning label 
subroutine to be executed. 

If a sequential input file is designated with the OPTIONAL 
clause in the File Control paragraph of the Environment 
Division, the clause is treated as documentation. The desired 
effect is achieved by specifying the DUMMY or NULLFILE parameter 
in the DD statement for the file. If the parameter is 
specified, the first READ statement for this file causes control 
to be passed to the imperative statement after the key words AT 
END. 

LEAVE, REREAD, and DISP may be specified only for standard 
sequential files. Because the positioning options are only 
applicable to tape files, they will be ignored if, at execution 
time, a direct access storage device is assigned to the file. 

When the subsequent volume is not to be mounted on the same 
device, the LEAVE, REREAD, and DISP options define the 
positioning of volumes at end of volume in either of two cases! 

• When automatic end of volume occurs (when an end-of-volume 
condition is detected during execution of a READ or WRITE 
statement) . 

• When execution of a CLOSE REEL/UNIT WITH POSITIONING 
statement causes forced end of volume. 

The LEAVE option causes each affected volume to be positioned at 
the end of the file on the volume, unless the REVERSED option is 
also specified. If the REVERSED option is specified, the tape 
is positioned at the beginning (that is, the logical end) of the 
file on each volume affected. 

Unless the REVERSED option is specified, the REREAD option 
causes each affected volume to be backspaced and positioned at 
the beginning of the file on the volume. If the REVERSED option 
is specified, the tape is repositioned at the end (that is, the 
logical beginning) of the file on each volume. 

If the DISP option is specified, the action taken — such as 
rewind, unload, and so forth — is a function of the DISP 
parameter of the associated DD statement for the file. The 
action is the same, whether or not the REVERSED option is 
speci f i ed. 



The START statement initiates processing of a sequentially 
accessed indexed file at a specified full or generic key. 
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Format 1 

START file-name [ INVALID KEY imperative-statement] 

Format Z 

r EQUAL TO 1 
START file-name USING KEY data-name < > identifier 

1=1 

L J 

[ INVALID KEY imperative-statement] 

If processing is to begin at the first record in the file» a 
START statement is not required before the first READ statement. 

FILE-NAMEj The file-name must be defined by a file description 
entry in the Data Division. 

FORMAT 1: When Format 1 is used, the contents of the NOMINAL KEY 
&r& used as the key value of the record at which processing is 
to begin. In this instance, this key value must be placed in 
the data-name specified by the NOMINAL KEY clause for this file 
before the START statement is issued. 

klhen the INVALID KEY option is specified, control is passed to 
the imperative-statement following INVALID KEY when the contents 
of the NOMINAL KEY field &r& invalid. The key is considered 
invalid when the record is not found in the file. 

In both Format 1 and Format 2, if the INVALID KEY option is not 
specified, an invalid key condition causes the execution of the 
USE AFTER STANDARD ERROR procedure, if specified, for the file. 
If neither is specified, abnormal termination may result. 

FORMAT Z'' When Format 2 is used, the programmer requests that ( 
processing begin with the first record of a specified generic ^_y 
key class. 

Data-name must be the data-name specified in the RECORD KEY 
clause for the file. 

Identifier contains the generic key value for the request, and 
may be any data item less than or equal in length to the RECORD 
KEY clause for the file. Identifier may not appear in the 
record description for the file. 

The USAGE of data-name and identifier should be DISPLAY (USAGE 
IS DISPLAY). 

When the USING KEY option is specified, then, before a START 
statement is issued, the user must place the desired value (the 
generic key) into identifier. When the START statement is 
executed, the contents of identifier are compared with the 
contents of the RECORD KEY data-name. The comparison is 
nonalgebrai c, from left to right. The length of the comparison 
is controlled by the length of identifier. Sequential 
processing of the file begins at the first record whose RECORD 
KEY contains a match with the contents of identifier. 

Identifiers of different lengths may be specified for different 
START statements for the same file. 

Note that upon execution of a Format 2 START statement the 
contents of the NOMINAL KEY field associated with the file 
remain unchanged. 

If identifier is greater in length than data-name, then the 
excess low-order characters of identifier are truncated. 

In Format 2, when the INVALID KEY option is specified, and the (1 J 
contents of identifier are invalid, control is passed to the ^..W*^ 
imperative-statement following INVALID KEY. Identifier is 
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considered invalid when the generic key class it contains is not 
found in the file. However » if the first record of the 
specified key class has been deleted^ retrieval begins at the 
next nondeleted record regardless of key class. 



SEEK Statement 



The SEEK statement serves as documentation. 

Format 

SEEK file-name RECORD 

The SEEK statement is meant to initiate access to a direct 
access storage record for subsequent reading or writing. 
However^ this compiler treats it as documentation. 

The file-name must be defined by a file description entry in the 
Data Division. 

A SEEK statement pertains only to direct files in the random 
access mode and may be executed prior to the execution of a READ 
or WRITE statement. 



READ Statement 






The READ statement makes available a logical record from a file. 

Format 

READ file-name RECORD [ INTO identifier] 

[ AT END 1 

< > imperative-statement 

I INVALID KEY | 

L J 

AT END OPTION? If a DD card for a sequential file specifies the 
DUMMY or NULLFILE parameter, on the first READ for the file, 
control will be passed to the imperative statement in the AT END 
phrase. For purposes of language consistency, the OPTIONAL 
clause should be specified for this type of file. 

INVALID KEY OPTION: If ACCESS IS RANDOM is specified for the 

file, the contents of the ACTUAL or NOMINAL KEY for the file 

must be set to the desired value before execution of the READ 
statement . 

Only the track specified in the ACTUAL KEY is searched for the 
record being read. 

If the desired record cannot be found on the specified track, 
the search can be extended to include a specific number of 
tracks or to include the entire file, with the LIMCT parameter 
on the DD card. 

Control is passed to the imperative statement following INVALID 
KEY when the contents of the ACTUAL KEY or NOMINAL KEY field are 
invalid. 

The key is considered invalid under the following conditions^ 

• For a direct file that is accessed randomly: when the 
record is not found within the search limits, or when the 
track address in the ACTUAL KEY field is outside the limits 
of the file. 

• For an indexed file that is accessed randomly: when no 
record exists whose RECORD KEY field matches the contents of 
the NOMINAL KEY field. 
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• For a relative file that is accessed randomly! uihen the 
relative record number in the NOMINAL KEY field is outside 
the limits of the file. 

Uihen the execution of a READ statement for an indexed file 
causes an INVALID KEY condition> a REWRITE statement should not 
be executed for the record with that key. 



^ 



URITE Statement 



The WRITE statement releases a record to a file. 

Format I 

WRITE record-name [ FROM i denti f ier~l] 

I i denti fier-2 I 
AFTER POSITIONING < > LINES 

I integer | 

L J 

[ END-OF-PAGE 1 
CAT < > imperative-statement] 

I IQP I 

L J 

Format Z 

WRITE record-name CFROM identifier-!] 

INVALID KEY imperative-statement 

FORMAT 1: The POSITIONING option may be specified only for 
standard sequential files. 

The POSITIONING option allows control of the vertical 
positioning of each record on the printed page. If the 
POSITIONING option is not used, automatic advancing is provided 
to cause single spacing. If the POSITIONING option is used, 
automatic advancing is overridden. 

When the ADVANCING or POSITIONING option is written for a record 
in a file, every WRITE statement for records in the same file 
must also contain one of these options. The POSITIONING and 
ADVANCING options may not both be specified for a file. 

When the POSITIONING option is used, the first character in each 
logical record for the file must be reserved by the user for the 
control character. The compiler will generate instructions to 
insert the appropriate carriage control character as the first 
character in the record. If the records are to be punched, the 
first character is used for pocket selection. It is the user's 
responsibility to see that the appropriate channels BrOi punched 
on the carriage control tape. 

In the AFTER POSITIONING option, i denti fier-2 must be described 
as a 1-character alphanumeric item; that is, with PICTURE X. 
Figure 97 shows the valid values that i denti fiei — 2 may assume 
and their interpretations. 
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Value of Identifier-2 Interpretation 

b (blank) Single-spacing 

Double-spacing 

Triple-spacing 
+ Suppress spacing 

1-9 Skip to channel 1 through 9, respectively 

kt B» C Skip to channel 10, 11, 12, respectively 

V, W Pocket select 1 or 2, respectively, on the IBM 

1442 Card Reader, and PI or P2 
on the IBM 2540 Card Read Punch 

Figure 97. Values of Identifier-2 and Interpretations — POSITIONING Option 



The POSITIONING option integer must be unsigned, and must be the 
value 0, 1, 2, or 3. The values assume the meanings given in 
Figure 98. 



Value of Integer Interpretation 

Skip to channel 1 of next page (carriage control) 

1 Single-spacing 

2 Double-spacing 

3 Triple-spacing 

Figure 98. Values of Integer and Interpretations — POSITIONING Option 



If the AFTER POSITIONING option is used, the record is written 
after the printer page is advanced according to the preceding 
rules. 

Note: DISPLAY, EXHIBIT, and WRITE AFTER POSITIONING statements 
all cause the printer to space before printing. However, a 
simple WRITE statement with no option given, or a WRITE BEFORE 
ADVANCING statement causes the printer to space after printing. 
Therefore, it is possible that mixed DISPLAY, EXHIBIT, and 
simple WRITE statements or WRITE BEFORE ADVANCING statements 
within the same program may cause overprinting. 

END-OF-PAGE-OPTION: The END-OF-PAGE condition exists when the 
channel 12 punch on the carriage control tape is sensed by an 
online printer. The printer file must be defined as an 
unblocked single buffered file. The programmer should ensure 
that every WRITE statement in the program (whether using the 
ADVANCING or the POSITIONING option) advances the printer only 
one line at a time; otherwise, the channel 12 punch may not be 
sensed and results may be unpredictable. 

When an END-OF-PAGE condition exists, the writing and spacing 
operations are completed before the END-OF-PAGE imperative 
statement is executed. The END-OF-PAGE statement will be 
executed only for an online printer. 

FORMAT 2* This format is used for randomly or sequentially 
accessed direct access storage files. 

For standard sequential files opened as OUTPUT, the WRITE 
statement can be specified only to create the file. For such 
files opened as I-O, a READ statement must be executed before 
the WRITE statement is issued; the WRITE statement updates the 
record retrieved by the previous READ statement. 

For sequentially accessed direct files, the WRITE statement 
updates or creates a record for an OUTPUT file. If a record 
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with the same ACTUAL KEY already exists, the WRITE statement 
updates that record; otheruiise/ it creates a new record. 

For sequentially accessed indexed or relative files, the WRITE 
statement creates a record for an OUTPUT file. 

If ACCESS IS RANDOM is specified for the file, the contents of 
the ACTUAL or NOMINAL KEY field for the file must be set to the 
desired value before the execution of a WRITE statement. For a 
direct file, the track specified in the ACTUAL KEY field is 
searched for space for the record to be written. 

If the required space cannot be found or if the record is not 
found on the specific track, the search can be extended to 
include a specific number of tracks, or to include the entire 
file, with the LIMCT parameter on the DD card. 

INVALID KEY OPTION: The INVALID KEY option must be specified for 
a file that resides on a direct access storage device; however, 
this IBM implementation will allow the user to omit this option. 
If the INVALID KEY option is not specified, an invalid key 
condition causes the execution of the USE AFTER STANDARD ERROR 
procedure if specified for the file. If no error processing 
declarative is specified for the file, the invalid key condition 
i s i gnored. 

Control is passed to the imperative statement following INVALID 
KEY if the following conditions exist: 

• For a direct access storage file in the sequential access 
mode and opened as OUTPUT: when no space is available in 
which to write the record. 

• For a direct file in the random access mode and opened as 
I-O or OUTPUT: when a record is being added to the file, 
and any one of the following conditions occurs: 

- The track number specified in the ACTUAL KEY field is 
outside the limits of the file. 

- For files with mode F records, the figurative constant 
HIGH VALUE (or its equivalent) has been moved into the 
first character position of the symbolic portion of the 
ACTUAL KEY field. 

• For a direct file in the random access mode, opened as I-O, 
and a record is being updated: when the record is not 
found, or when the track number in the ACTUAL KEY field is 
outside the limits of the file. 

• For an indexed file in the sequential access mode, opened as 
OUTPUT, and either of the following conditions occurs: 

- The contents of the RECORD KEY field are not in 
ascending order when compared with the contents of the 
RECORD KEY field of the preceding record. The contents 
of the RECORD KEY field duplicate those of the preceding 
record. 
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REURITE Statement 



— For an indexed file in the random access mode^ opened as 
I-0» and a record is being added to the file^ when the 
contents of the NOMINAL KEY field associated with the 
record to be added duplicate the contents of a RECORD 
KEY field already in the file. 

RANDOMLY ACCESSED DIRECT FILES: For a direct file in the random 
access mode that is opened for I-Of the following considerations 
apply- 

• If D is specified in the ASSIGN clause system-name* then? 

— A WRITE statement updates a record if the preceding READ 
statement was for a record with the same ACTUAL KEY. 

— A WRITE statement adds a new record to the file* whether 
or not a duplicate record exists, if the preceding READ 
statement was not for a record with the same ACTUAL KEY. 

• If W i s specified in the ASSIGN clause system-name* then: 

— A REWRITE statement searches for a record with a 
matching ACTUAL KEY* and updates it. 

— A WRITE statement adds a new record to the file* whether 
or not a duplicate key exists. 



The REWRITE statement replaces a logical record on a direct 
access storage file. 

Format 

REWRITE record-name [ FROM identifier] 

INVALID KEY imperative-statement 

The READ statement for a file must be executed before a REWRITE 
statement for the file can be executed* except for a direct file 
accessed randomly. A REWRITE statement can be executed only for 
files opened as I-O; any file organization is valid. 

When the FROM option is used* the REWRITE statement is 
equivalent to the statement MOVE identifier TO record-name 
followed by the statement REWRITE record-name. Identifier 
should be defined in the Working-Storage Section* the Linkage 
Section* or in another FD. 

For a randomly accessed direct file* control is passed to the 
imperative statement following INVALID KEY when the contents of 
the ACTUAL KEY field are invalid. The key is considered invalid 
when the record is not found* or the track address specified in 
ACTUAL KEY is outside the limits of the file. 

For a randomly accessed relative file* control is passed to the 
imperative statement following INVALID KEY when the contents of 
the NOMINAL KEY field are invalid. The key is considered 
invalid when the relative record number in the NOMINAL KEY field 
is outside the limits of the file. 

An INVALID KEY error will never be detected when updating a 
randomly accessed indexed file* and the results of a REWRITE 
statement are unpredictable. If* when randomly reading a record 
of an indexed file* an INVALID KEY condition occurs* the record 
should not be rewritten. If the INVALID KEY option is not 
specified* an invalid key condition will cause the execution of 
the USE AFTER STANDARD ERROR procedure* if specified for the 
file. If no error processing declarative is specified for the 
file* the invalid key condition will be ignored. 
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CLOSE Statement 



If ACCESS IS RANDOM is specified for the direct or relative 
file, the ACTUAL or NOMINAL KEY must be set to the desired valu« 
before the REWRITE statement is executed. 






Format 1 

CLOSE file-name-1 

[f i le-name-2 
Format 2 



REEL 
UNIT 

r REEL 
I UNIT 



CLOSE file-name-1 [WITH 



tfi le-name-2 CWITH 



r NO REMIND 1 
CWITH < > 3 

! LOCK I 

L J 

f NO REWIND 1 
CWITH < > 33 

I LOCK I 

L J 



[ NO REWIND 1 

< LOCK > 3 
I DISP I 

L J 

I NO REWIND 1 

< LOCK > 3 3 
I DISP I 



Format 3 

CLOSE file-name-1 

Cf i le-name-2 



[ REEL 1 
< > 
I UNIT J 

f REEL 1 



I UNIT I 

L ■ J 



[ NO REWIND 1 

CWITH < LOCK > 

I POSITIONING I 

L J 

\ NO REWIND 1 

CWITH < LOCK > 

I POSITIONING I 

I. J 






33 



A file may be closed more than once, but each CLOSE statement 
(without the REEL/UNIT option) must be preceded by an OPEN 
statement for that file. A file that is opened within a run 
unit must be closed within that run unit. 

The REEL, DISP, WITH POSITIONING, and WITH NO REWIND options are 
applicable only to tape files. The UNIT option is applicable 
only to direct access storage files in sequential access mode. 
Since device assignments can be specified at execution time, the 
words REEL and UNIT ar& interchangeable. If a file is assigned 
to a direct access storage device, the DISP, WITH POSITIONING, 
and NO REWIND options will be ignored. 

For purposes of showing the effect of various CLOSE options as 
applied to various storage media, all input/output files are 
divided into the following categories? 



Unit record. A file whose input or output medium 
that rewinding, units, and reels have no meaning. 



i s such 



Sequential single volume. A sequential file that is 
entirely contained on one volume. There may be more than 
one file on this volume. 

Sequential multi volume. A sequential file that may be 
contained on more than one volume. 



C 
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• Random single volume. A file in the random access mode that 
may be contained on a single direct access storage volume. 

• Random multi volume. A file in the random access mode that 
may be contained on more than one direct access storage 
volume. 

Note: See also the file processing charts (Figure 90 through 
Figure 92) at the beginning of this section. 



Sequential File Processing 



The results of executing each CLOSE option for each type of file 
are summarized in Figure 99. The definitions of the symbols in 
the figure are given beloui. Where the definition of the symbol 
depends on whether the file is an input or output file» 
alternative definitions are given; otherwise* a definition 
applies to files opened as INPUT, OUTPUT, and I-O. 














File Types 


CLOSE option 


unit 
Record 


Sequent 
Single- 


CLOSE 




C 




C, G 


CLOSE WITH 


LOCK 


c. 


E 


C, G, E 


CLOSE WITH 
REWIND 


NO 


X 




C, B 


CLOSE WITH 


DISP 


X 




C, J 


CLOSE REEL 




X 




X 


CLOSE REEL 
LOCK 


WITH 


X 




X 


CLOSE REEL 
NO REWIND 


WITH 


X 




X 


CLOSE REEL WITH 
POSITIONING 


X 




X 


CLOSE UNIT 




X 




X 


CLOSE UNIT 
LOCK 


WITH 


X 




X 


CLOSE UNIT WITH 
POSITIONING 


X 




X 



sequential 
Multi volume 



c. 


G, 


A 


c. 


G, 


E, A 


c. 


B, 


A 


c. 


J, 


A 


F, 


G 




F, 


G, 


D 


F, 


B 




F, 


H 




F 






F, 


D 





Figure 99. Sequential File Types and Options of the CLOSE 
Statement 



A — Previous Volumes Unaffected 

All volumes in the file prior to the current volume are 
processed according to standard volume switch procedures 
except those volumes controlled by a prior CLOSE REEL/UNIT 
statement. The standard switch procedure positions the 
volumes as specified by the volume positioning option of 
the OPEN statement. 

B — No Rewind of Current Reel 

The current volume is left in its current position. 
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C — standard Close File 

Files opened as INPUT and I-O: If the file is positioned /l*^ "^ 

at its end» and label records are specified, the standard 

ending label procedure and the user ending label procedure 

(if specified by the USE statement) are performed. The 

order of execution of these two procedures is specified by 

the USE statement. Standard system closing procedures are 

then performed. 

If the file is positioned at its end, and label records are 
not specified for the file, standard system closing 
procedures are performed. 

If the file is positioned other than at its end, the 
standard system closing procedures are performed. Even if 
label procedures are specified, no label processing is 
performed. 

(An INPUT or I-O file is considered to be at its end if the 
AT END phrase of the READ statement has been executed, and 
no CLOSE statement has been executed.) 

Files opened as OUTPUT: If label records are specified for 
the file, standard ending label procedures and user ending 
label procedures (if specified by the USE statement) are 
performed. The order of execution of these two procedures 
is specified by the USE statement. Standard system closing 
procedures are then performed. 

If label records are not specified for the file, standard 
system closing procedures are performed. 

D — Standard Reel/Unit Lock 

This feature has no meaning in this system and is treated 
as comments. 



,/tif \ 



E — Standard File Lock 

The compiler ensures that this file cannot be opened again 
during this execution of the object program. 

F — Standard Close Volume 

Files Opened as INPUT and I-QJ The following operations 
are performed^ 

• A volume switch. 

• The standard beginning volume label procedure and the 
user's beginning volume label procedure (if specified 
by the USE statement). The order of execution of these 
two procedures is specified by the USE statement. 

• Makes the next data record on the new volume available 
to be read. 

Files Opened as OUTPUT^ The following operations are 
perf ormedi 

• The standard ending volume label procedure and the 
user's ending volume label procedure (if specified by 
the USE statement). The order of execution of these 
two procedures is specified by the USE statement. 

• A volume switch. 

• The standard beginning volume label procedure and the 
user's beginning volume label procedure (if specified 
by the USE statement). The order of execution of these 
two procedures is specified by the USE statement. 

G — Rewind ^~x 

The current volume is positioned at its beginning. M \ 
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H — POSITIONING of Current Reel 

The current volume is positioned as specified by the volume 
positioning option of the OPEN statement. 

J — DISP 

The positioning of the current volume (such as rewinds 
unloads and so forth) is a function of the DISP parameter 
of the associated DD statement for the file. The action is 
the same» whether or not the file was opened as REVERSED. 

X — Illegal 

This is an illegal combination of the CLOSE option and a 
file type. The results at object time may be 
unpredi ctable. 

General considerations: A file is designated as optional by 
specifying the DUMMY or NULLFILE parameter on the DD card for 
the file. If an optional file is not presents standard 
end-of-file processing is not performed. For purposes of 
language consistency, the OPTIONAL phrase of the SELECT clause 
should be specified for this type of file. 

If a CLOSE statement without the REEL or UNIT option has been 
executed for a file, the next input/output statement to be 
executed for that file must be an OPEN statement. 



Random File Processing 






The results of executing each CLOSE option for each type of file 
are summarized in Figure 100. The definitions of the symbols in 
the figure are given below. Where the definition depends on 
whether the file is an input or output file, alternate 
definitions are given; otherwise, a definition applies to files 
opened as INPUT, OUTPUT, and I-O. 

K — Standard Close File 

The standard ending label procedure and the user ending 
label procedure (if specified by the USE statement) are 
performed. For 1-0 files and OUTPUT files, the labels are 
written. Standard system closing procedures are then 
performed. 

L — Standard Fi le Lock 

The compiler ensures that this file cannot be opened again 
during this execution of this object program. 



File Types 

Random Random 

CLOSE Option Single- Volume Kulti volume 

CLOSE K K 

CLOSE WITH LOCK K, L K, L 

Figure 100. Random File Types and Options of the CLOSE Statement 



ASCII FILE CONSIDERATIONS 



ASSIGN Clause 



For ASCII-encoded files using "old" sequential organization, 
there are special considerations, as follows. 



The Environment Division ASSIGN clause must be specified as 
follows. 
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The assignment-name has the following format* 

UTC-device]-CC -offset] -name 

Device^ if specified, must specify a magnetic tape device. If 
this field is omitted, the magnetic tape device must be 
specified through control cards at execution time. 

C in the organization field specifies that an ASCII-encoded 
sequential file is to be processed, or that an ASCII-collated 
sort is to be performed. 

Offset may be specified only for an ASCII file, and then only if 
a buffer offset in the range 01 through 99 exists. It is a 
2-digit field, and may be specified as follows. 

• 01 through 99 for an input file 

• 04 for an output file (D-mode records only) 

Name is a 1- to 8-character field specifying the external-name 
by which the file is known to the system. It is the name that 
appears in the name field of the DD card for the file. 

For an ASCII-collated sort, assignment-name has the following 
format 5 

classC-devi ce]-C-name 

Note: For the sort assignment-name, the buffer offset field is 
not permitted. 



c 



RECORDING MODE Clause 



For ASCII files, mode may be specified as F, U, or V. S mode 
may not be specified. 



LABEL Procedure Declarative 






Relation conditions 



Because the user may not specify nonstandard labels for an 
ASCII-encoded file, the BEFORE option of the LABEL PROCEDURE 
Declarative is not allowed. 



If the ASCII character strings to be compared contain mixed 

alphabetic/ numeric characters and/or special characters, then 

the TRANSFORM verb can be used before the comparison is made to 
ensure a valid comparisbn. 



SECTION II — "NEM" AND "OLD" LANGUAGE EXTENSIONS 



The language extensions documented in this section may be 
specified in a program for which either the "new" or the "old" 
compiler option is specified. All are extensions to the 1974 
standard. 

Note: These extensions are included for compatibility purposes 
only. Therefore, whether the "new" or the "old" compiler option 
is chosen, they must be specified only in conjunction with 1968 
Standard language or with IBM extensions to that Standard. 



>, 
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LANGUAGE CONSIDERATIONS 



Floating-Point Numeric Literals 



A floating-point numeric literal is an item whose potential 
range of value is too great for fixed-point representation. A 
floating-point literal must have the form* 

C±] mantissa E [±] exponent 

A floating-point literal must appear as a continuous string of 
characters with no intervening spaces. The plus-or-mi nus signs 
preceding the mantissa and exponent are the only optional 
characters within the format. The mantissa consists of from 1 
through 16 digits with a required decimal point. 

The exponent is represented immediately to the right of the 
mantissa by the symbol E^ followed by a plus-or-mi nus sign (if a 
sign is given) and one or two digits. The magnitude of the 
number represented by a floating-point literal must not exceed 
0.72 X (10^*). A zero exponent must be written as or 00. It 
is assumed that an unsigned exponent is positive. 

The value of the literal is the product of the mantissa and 10 
raised to the power given by the exponent. 



Special Registers 



TALLY: is the name of a special register whose implicit 
description is that of an integer of five digits without an 
operational sign» and whose implicit USAGE is COMPUTATIONAL. 
The primary use of the TALLY register is to hold information 
produced by the EXAMINE statement. References to TALLY may 
appear wherever an elementary data item of integral value may 
appear. 

CURRENT-DATEi is an 8-byte alphanumeric field, valid only as the 
sending field in a MOVE statement. The format of these eight 
bytes is MM/DD/YY (month/day/year). 

TIME-OF-DAY: is a 6-byte external-decimal field* valid only as 
the sending field in a MOVE statement. The format is HHMMSS 
(hour, minute, second). 

IDENTIFICATION DIVISION 

Program-name may be specified within quotation marks. 

The REMARKS paragraph allows a comment-entry to be specified. 
The comment-entry may consist of any characters within the 
EBCDIC set. 
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DATA DESCRIPTION ENTRY 



Level-Numbers 



This compiler accepts nonstandard level-numbers which ar& not 
identical with others at the same level. For example^ the 
compiler will accept the following COBOL descriptions as 
equivalent^ 



01 A. 




01 


A. 




05 


C-1. 

10 D PICTURE X. 

10 E PICTURE 999. 




05 


C-1. 
10 D 
10 E 


05 


B-1. 

10 F PICTURE 9. 

10 G PICTURE A(5). 




04 


B-1. 
08 F 
08 G 



D PICTURE X. 
PICTURE 999. 

PICTURE 9. 
PICTURE ACS) 



REDEFINES Clause 



For level-numbers that are subordinate to a record* the compiler 
allows the redefining area (data-name-1) to be smaller than the 
redefined area (data-name-2) . 

When multiple redefinition is used* this compiler accepts the 
data-name of the preceding entry as a valid redefinition. For 
example: 

02 A PICTURE 99V99. 

02 B REDEFINES A PICTURE A(4). 

02 C REDEFINES B PICTURE X(4). 



PICTURE Clause 



When the asterisk ()<) zero suppression symbol and the BLANK WHEN 
ZERO clause are both specified for the same data item, the 
asterisk overrides the BLANK WHEN ZERO clause. 






USAGE Clause — Floating-Point Items 



Floating-point numeric items define data whose potential range 
of value is too great for fixed-point presentation. The 
magnitude of the number represented by a floating-point item 
must be greater than 5.4 x 10-^' but must not exceed 0.72 x 
10'*. 

There are two types of floating-point items* internal 
floating-point and external floating-point. 

EXTERNAL FLOATING-POINT ITEMS: These items have USAGE DISPLAY 
and a PICTURE charactei — string in the following form: 

{±} mantissa E {±3 exponent 

where each element of the string is composed according to the 
following rules: 

± A plus sign or a minus sign must immediately precede 
both the mantissa and the exponent in the PICTURE 
character string 

+ indicates that a plus sign in the data represents 
positive values and that a minus sign represents 
negative values. 



( 
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indicates that a space character in the data 
represents positive values and that a minus sign 
represents negative values. 

The plus sign» the space character* and the minus 
sign each occupy one byte of storage. 

mantissa The mantissa immediately follows the first sign 

character* and is represented using the following 
three symbols' 

9 Each 9 in the mantissa character string represents a 
digit position into which a numeric character will be 
placed. From one to sixteen 9s may be present in the 
string. Each digit position occupies one byte of 
storage. 

indicates an actual decimal point. It does not take 
up any storage. 

V indicates an assumed decimal point. It does not take 
up any storage. 

One actual or assumed decimal point must be present in 
the mantissa as a leading* embedded* or trailing 
symbol . 

E indicates the exponent* and immediately follows the 
mantissa. It occupies one byte of storage. 

exponent The exponent immediately follows the second sign 

character. It is represented by two consecutive 9s. 
Each occupies one byte of storage. 

The value of an external floating-point number is the mantissa 
multiplied by the power of 10 expressed by the exponent. The 
magnitude of a number represented by a floating-point item must 
be greater than 5.^ x (10-^^) but must not exceed 0.72 x (10^*). 
When used as a numeric operand* or as the sending item in a move 
statement* an external floating-point number is scanned at 
object time* and converted to its equivalent internal 
floating-point value. In this form* the number is used in 
arithmetic or move operations. 

External data must conform to the representation specified in 
the PICTURE clause. 

USAGE DISPLAY must be specified or implied for external 
floating-point items. 

No VALUE clause may be associated with an external 
floating-point item. 

INTERNAL FLOATING-POINT ITEMS: These items are specified through 
the following options of the USAGE CLAUSE*- 

(USAGE COMPUTATIONAL-1) for short-precision internal 

(USAGE COMP-1) floating-point (4 bytes long) 

(USAGE COMPUTATIONAL-2) for long-precision internal 

(USAGE C0riP-2) floating-point (8 bytes long) 

Note: Because of the size limitation for an internal 
floating-point item* there is an inherent inaccuracy in the 
conversion from decimal to hexadecimal. Because of this 
limitation* low order significance may be lost. For example* 
0.18200 external decimal would convert to 0.1819999999 in 
internal decimal. 

Internal floating-point items are equivalent to external 
floating-point items in capability and purpose. 
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VALUE Clause 



PROCEDURE DIVISION 



Section Headers 



THEN Reserved word 



The sign of the fraction (mantissa) is the leftmost bit (bit 0) 
in either format. 

The exponent appears in bits 1 through 7. 

The fraction (equivalent to the mantissa) appears in the 
rightmost bytes'* 

For COMPUTATIONAL-1, the fraction is 3 bytes long. 

For COMPUTATIONAL-2, the fraction is 7 bytes long. 

No PICTURE clause may be associated with an internal 
floating-point item. 

If a VALUE clause is associated with an internal floating-point 
item, the literal must be a floating-point literal. 



In the File Section, Linkage Section* and the Communication 
Section, the VALUE clause may be specified for level-88 items, 
and also for other items. 

Using JUSTIFIED in a VALUE clause, under the "old" language 
options, will cause initialization to be right justified, 

JUSTIFIED IN A VALUE CLAUSE: The "new" language options ignore 
the JUSTIFIED clause, and initialization will be left justified. 
In the latter case, it is treated as documentation. 



If a section header is missing at the beginning of the 
nondeclarati ve portion of the Procedure Division, the compiler 
processes the source program as if a section header had been 
wri tten. 



The word THEN may be used to separate a series of statements. 



Floating-Point Numeric Operands 



The following rules apply to the use of floating-point numeric 
operands'* 

RELATION CONDITION: For external floating-point operands, the 
rules for the comparison of external decimal operands apply} for 
internal floating-point operands, the rules for the comparison 
of internal decimal operands apply, 

ACCEPT FROH DATE/DAY/TIME STATEMENT: The receiving field can be 
an external floating-point item, 

DISPLAY STATEMENT: Internal floating-point items are converted 
to external floating-point items before printing. 

MOVE STATEMENT: Both external and internal floating-point items 
are treated as numeric noninteger items. 

ROUNDED OPTION: Rounding has no meaning when the result field is 
floating-point. When the result field is fixed-point, however, 
and at least one of the operands of an arithmetic statement is 
floating-point, rounding always takes place, whether or not 
ROUNDED is specified. 
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SEARCH STATEMENT*. The identifier must not be a floating-point 
i tern. 

SIZE ERROR OPTION*. For internal floating-point items, only 
division by causes the SIZE ERROR imperative-statement to be 
executed. 



Arithmetic Expressions — Unary Operators 

A unary operator need not be followed by a space. 



Comparisons 



IF statement 



The compiler allows a group item to be compared with a numeric 
item, even when the USAGE of the numeric item is not DISPLAY. 



The following format is accepted by the compiler. 



Format 

[ statement-l 1 [ ELSE 1 [ statement-2 1 

IF condition THEN < > < > < > 

I NEXT SENTENCE I | OTHERUilSE | | NEXT SENTENCE I 

t J L J L J 



THEN is accepted as a connective after the condition. 

The word OTHERWISE is the equivalent of the word ELSE, 

Execution of the IF statement, when these words are coded, is 
unaffected. 



EXAMINE Statement 



The EXAMINE statement is used to count the number of times a 
specified character appears in a data item and/or to replace a 
character with another character. Notes EBCDIC collating 
sequence is always used for comparisons, no matter which 
collating sequence is used by the program. 



Format 1 



EXAMINE identifier TALLYING 



r UNTIL FIRST 1 
< ALL > 
I LEADING I 



li teral-1 



[REPLACING BY literal-2] 



'V 



V- 



^ ' lib' 
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Format 2 



EXAMINE identifier REPLACING 



BY literal-2 



fALL 1 
I LEADING I 
< FIRST > 
I UNTIL FIRST I 

L J 



literal-! 



In all cases 
its USAGE is 



the description of identifier must be such that 
DISPLAY (explicitly or implicitly). 



Ulhen identifier represents a nonnumeric data item, examination 
starts at the leftmost character and proceeds to the right. 
Each character in the data item is examined in turn. For 
purposes of the EXAMINE statement, external floating-point items 
are treated as nonnumeric data items. 

When identifier represents a numeric data item, this data item 
must consist of numeric characters, and may possess an 
operational sign. Examination starts at the leftmost character 
and proceeds to the right. Each character is examined in turn. 

If the letter 'S* is used in the PICTURE of the data item 
description to indicate the presence of an operational sign, the 
sign is ignored by the EXAMINE statement. 

Each literal must consist of a single character belonging to a 
class consistent with that of the identifier; in addition, each 
literal may be any figurative constant except ALL. If 
identifier is numeric, each literal must be an unsigned integer 
or the figurative constant ZERO (ZEROES, ZEROS). 

When Format 1 is used, an integral count is created which 
replaces the value of a special register called TALLY, whose 
implicit description is that of an unsigned integer of five 
digits (see "Language Considerations" in this Appendix). 

• When the ALL option is used, this count represents the 
number of occurrences of literal-1. 

• When the LEADING option is used, this count represents the 
number of occurrences of literal-1 prior to encountering a 
character other than literal-1. 

• When the UNTIL FIRST option is used, this count represents 
all characters encountered before the first occurrence of 
literal-1. 

Whether Format 2 is used, or the REPLACING option of Format 1, 
the replacement rules are the same. They are as follows^ 

• When the ALL option is used, literal-2 is substituted for 
each occurrence of literal-1. 

• When the LEADING option is used, the substitution of 
literal-2 for each occurrence of literal-1 terminates as 
soon as a character other than literal-1 or the rightmost 
boundary of the data item is encountered. 

• When the UNTIL FIRST option is used, the substitution of 
literal-2 terminates as soon as literal-1 or the far 
rightmost boundary of the data item is encountered. 

• When the FIRST option is used, the first occurrence of 
literal-1 is replaced by literal-2. 



i 



> 



NOTE Statement 



Using the NOTE statement, the programmer can write commentary 
that will be produced on the source listing but not compiled. 



\.J 
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MOVE Statement 



Format 

NOTE character string 

Any combination of characters from the EBCDIC set may be 
included in the character string. 

If a NOTE sentence is the first sentence of a paragraph/ the 
entire paragraph is considered to be part of the character 
string. Proper format rules for paragraph structure must be 
observed. 

If a NOTE sentence appears as other than the first sentence of a 
paragraphs the commentary ends with the first occurrence of a 
period followed by a space. 



When MOVE CORRESPONDING is specified, multiple receiving 
operands are allowed. 



TABLE HANDLING FEATURE 



OCCURS Clause 



J 



There are special considerations for the OCCURS clause and for 
the USAGE IS INDEX clause when this feature is used. 



The OCCURS clause specifies the number of times a series of 
items with identical format is to be repeated; it also specifies 
keys and indexes associated with these items. 

\ In all formats with the OCCURS DEPENDING ON clause, this IBM 

■ implementation allows any subordinate entry to be variable in 

length — that is, to contain an OCCURS DEPENDING ON clause. 

Format 2 

OCCURS lnteger-1 TO i nteger-2 TIMES C DEPENDING ON data-name-13 

r ASCENDING ] 
C < > KEY IS data-name-2 Cdata-name-33 ... 3 ... 

I DESCENDING | 

L J 

[ INDEXED BY index-name-1 C i ndex-name-23 ... 3 

Format 3 

OCCURS i nteger-2 TIMES [ DEPENDING ON data-name-13 

I ASCENDING 1 
[ < > KEY IS data-name-2 [data-name-33 ... 3 ... 

I DESCENDING | 

[ INDEXED BY index-name-1 [ i ndex-name-23 ... 3 

An entry containing an OCCURS DEPENDING ON clause need not be 
the last in the record. 

In Format 2, integei — 1 represents the minimum number of 
occurrences. The value of integei — 1 must be or greater; it 
must be less than integei — 2. 

In Formats 2 and 3, integei — 2 represents the maximum number of 
occurrences. The value in data-name-1 must not exceed that of 
i ntegei — 2. 
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USAGE IS INDEX Clause 



When USAGE IS INDEX is specified for a data item, this IBM 
implementation allows the specification of the SYNCHRONIZED 
clause. The SYNCHRONIZED clause is treated as documentation. 



SEARCH ALL Statement 



DEBUGGING LANGUAGE 



In the WHEN option, the KEY data item may be either the subject 
or the object of the EQUAL TO relation-condition. HoMever, if 
the object of the EQUAL TO is the KEY data item, then the 
subject identifier must not contain a literal subscript. 



Debugging statements may appear anyMhere in a COBOL program or 
in a compile-time debugging packet. 

Output for the TRACE and EXHIBIT statements is written on the 
system logical output device; a maximum logical record size of 
120 characters is assumed. This assumed size can be overridden 
at compile time. 



READY or RESET TRACE Statement 

Format 



r READY 1 
< > 
I RESET I 



TRACE 



After a READY TRACE statement is executed, and each time (^ 

execution of a paragraph or section begins, its name or \-.j^ 

compilei — generated card numbei depending on the compiler option 

chosen — is displayed. The execution of a RESET TRACE statement 
terminates the functions of a previous READY TRACE statement. 



EXHIBIT Statement 



Format 



EXHIBIT 



r NAMED 1 
< CHANGED NAMED > 
j CHANGED I 



i denti f i er-2 
li teral-2 



Fi 



denti f i er 



-il 



I literal-1 



The execution of an EXHIBIT statement causes a formatted display 
of the identifiers (or literals) listed in the statement. 

Identifiers listed in the statement cannot be any special 
register except TALLY. 

Literals listed in the statement are followed by a blank when 
displayed. 

The display of the operands is continued as described for the 
DISPLAY statement. A maximum logical record size of 120 
characters is assumed. 

EXHIBIT named: Each time an EXHIBIT NAMED statement is executed, 
there is a formatted display of each identifier listed and its 
value. Because both the identifying name and the value of the 



A. 
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identifier are displayed^ a fixed columnar format is 
unnecessary. If the list of operands includes literals^ they 
are displayed as remarks each time the statement is executed. 

EXHIBIT CHANGED NAMED: Each time an EXHIBIT CHANGED NAMED 
statement is executed/ there is a display of each identifier 
listed and its value (only if the value has changed since the 
previous time the statement was executed). The first time such 
a statement is executed^ all values are considered changed and 
are displayed. If the list of operands includes literals^ they 
are displayed as remarks each time the statement is executed. 

Because both the identifying name and the value of each 
identifier are displayed^ a fixed columnar format is 
unnecessary. If some of the identifiers have not changed in 
value/ no space is reserved for them. If none of the 
identifiers have changed in valuer blank line(s) Mill not be 
pri nted. 

The format of the output for each identifier listed in the 
EXHIBIT NAMED and EXHIBIT CHANGED NAMED statement is*. 

original identifying name> including qualifiers if written 
(no more than 120 characters in length) 

space 

equal sign 

space 

value of identifier (for EXHIBIT CHANGED NAMED, no more than 
256 bytes in length) 

space 

EXHIBIT CHANGED: Each time an EXHIBIT CHANGED statement is 
executed, there is a display of the current value of each 
identifier listed (only if the value has changed since the 
previous time the statement was executed). The first time the 
statement is executed, all values are considered changed and are 
displayed. If the list of operands includes literals, they are 
printed as remarks each time the statement is executed. 

The format of the output for a specific EXHIBIT CHANGED 
statement presents each operand in a fixed columnar position. 
Because the operands are displayed in the order they are listed 
in the statement, the programmer can easily distinguish each 
operand. 

The following considerations apply: 

• If there are two or more identifiers as operands, and some, 
but not all, are changed from the previous execution of the 
statement, only the changed values are displayed. The 
positions reserved for a given operand are blank when the 
value of the operand has not changed. 

• If none of the operands have changed in value from the 
previous execution of the statement, a blank line(s) will be 
pri nted. 

• Variable-length identifiers are not permitted as operands. 

• The storage reserved for any operand cannot exceed 256 
bytes. 

Note: The combined total length of all operands for all EXHIBIT 
CHANGED NAMED plus all EXHIBIT CHANGED statements in one program 
cannot exceed 32767 bytes. 

If two distinct EXHIBIT CHANGED NAMED or two EXHIBIT CHANGED 
statements appear in one program, each specifying the same 
identifiers, the changes in value of those identifiers are 
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ON Statement 



associated with each of the two separate statements. Depending 
on the path of program flow, the values of the identifier saved 
for comparison may differ for each of the two statements. 



The ON statement allows selective execution of the statements it 
contains. 



Format 



I integer-l | 
ON < > [ AND EVERY 

j identifier-1 I 

I integer-3 | 
[ UNTIL < > ] 

I identifiei — 3 | 



I integer-2 I 

< > ] 

I identifier-2 j 

L J 

I imperative-statement j 
< > 

I NEXT SENTENCE | 



I ELSE I I statement... | 
< > < > 

I OTHERWISE I ( NEXT SENTENCE I 

L J L J 

All integers contained in the ON statement must be positive and 
no greater than 16777215. 

The phrase ELSE/OTHERWISE NEXT SENTENCE may be omitted if it 
immediately precedes the period for the sentence. 

All identifiers must be fixed-point numeric items described as 
integers. Their values must be positive and no greater than 
16777215. 

At object time, each identifier must be initialized to a 
positive value before the first execution of the ON statement. 
Between executions of the ON statement, the values contained in 
the identifiers may be modified. The programmer's manipulation 
of these values in no way affects the compilei — generated counter 
associated with the ON statement. 

In the discussion that follows, each reference to integei — 1 
applies equally to identifiei — 1. Similarly, each reference to 
integer-2 applies to identifiei — 2, and each reference to 
integer-3 applies to i dent i f i er-3 . 

The ON statement is evaluated and executed as follows: 

• Each ON statement has a compiler-generated counter 
associated with it. The counter is initialized to in the 
object program. Each time the path of program flow reaches 
the ON statement, the counter is incremented by one, and the 
count-condition (integer-1 AND EVERY integer-2 UNTIL 
integei — 3) is tested. When the counter reaches 16777215, it 
is reset to and counting resumes. 

• If the count-condition is satisfied, the 
imperative-statement (or NEXT SENTENCE) preceding 
ELSE/OTHERWISE is executed. (Note that an 

imperative-statement may consist of a series of imperative 
statements.) 

• If the count-condition is not satisfied, the statement(s) 
(or NEXT SENTENCE) following ELSE/OTHERWISE is executed. If 
the ELSE/OTHERWISE option does not appear, the next sentence 
i s executed. 
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The count-condition is evaluated as follows^ 

• If only integei — 1 has been specified^ then the 
count-condition is satisfied only once^ when the path of 
program flow has reached the ON statement integei — 1 
times — that \s, when the value in the counter equals 

i nteger — 1 . 

• When only integer-1 and integer-3 are specified^ then the 
value of integei — 2 is assumed to be one^ and the 
count-condition is satisfied when the value in the counter 
is any value within the range from integei — 1 through 

i ntegei — 3 . 

• If only integei — 1 and integei — 2 are specified, then the 
count-condition is satisfied each time the value in the 
counter is equal to integei — 1 + (integei — 2 ^ K), where K is 
any positive integer or 0. No upper limit for the execution 
of the ON statement is assumed. 

• Uhen all three integers are specified, then the 
count-condition is satisfied as in the last preceding case, 
except that an upper limit at which the count-condition 
cannot be satisfied is specified. The upper limit is 
integei — 3. 

Note: In called subprograms, reinitialization of the EXHIBIT 
statement and ON statement operands is the responsibility of the 
programmer. 



COMPILE-TIME DEBUGGING PACKET 



DEBUG CARD 



Debugging statements for a given paragraph or section in a 
program may be grouped together into a debugging packet. These 
statements will be compiled with the source language program and 
will be executed at object time. Each packet refers to a 
specified paragraph-name or section-name in the Procedure 
Division. Compile-time debugging packets are grouped together 
and are placed immediately following the source program. No 
reference to procedure-names in debug packets may be made in the 
body of the program. 



Each compile-time debugging packet is preceded by a DEBUG card. 

Format 

DEBUG location 

The word DEBUG followed by location may appear anywhere within 
columns 1 through 72 on the card except in column 7 (because a D 
in column 7 specifies a debugging line). There must be no other 
text on the card. However, a sequence number followed by a 
space may appear in columns 1 through 7. 

The location is the section-name or paragraph-name (qualified, 
if necessary) indicating the point in the program at which the 
packet is to be executed. Effectively, the statements in the 
packet are executed as though they were physically placed in the 
source program following the section-name or paragraph-name, but 
preceding the text associated with the procedure. The same 
location must not be used in more than one DEBUG control card. 
Location cannot be a paragraph-name within any debug packet. 

A debug packet may consist of any procedural statements 
conforming to the requirements of American National Standard 
COBOL. The following considerations apply- 

• A PERFORM or ALTER statement in a debug packet may refer to 
a procedure-name in any debug packet or in the main body of 
the Procedure Division. 
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A GO TO statement in a debug packet may not refer to a 
procedure-name in another debug packets but it may refer to ^^ 
a procedure-name in the main body of the Procedure Division. f 



SOURCE LISTING FORMAT CONTROL 



EJECT Statement 



The following statements control the spacing of the source 
program listings produced by the COBOL Compiler. 



The EJECT statement specifies that the next source statement is 
to be printed at the top of the next page. 

Format 

EJECT 

The word EJECT may be written anywhere within Area B and must be 
the only statement on the card. There must be no punctuation. 



SKlPl/2/3 Statements 



These statements specify lines to be skipped in the source 
li sting. 

Format 



r 



SKIPl 
I SKIP2 
I SKIP3 

L 

SKIPl specifies a single blank line (double spacing) > SKIP2 \ _J^ 
specifies two blank lines (triple spacing)^ and SKIP3 specifies 
three blank lines (quadruple spacing). 

SKIPl, SKIP2, or SKIP3 may be written anywhere within Area B and 
must be the only statement on the card. There must be no 
punctuati on. 



GLOBAL ITEMS 



Quotation Mark specification 




The double quotation mark (") conforms to the 1974 Standard, and 
is the installation option supplied with the compiler. If this 
option is chosen as the installation default, the single 
quotation mark (*) — unless the default is overridden at compile 
time — must not be used, except as a character in a nonnumeric 
literal. 

The single quotation mark ( * ) i s an IBM extension, and was the 
installation default supplied with the OS Full American National 
Standard COBOL compiler. If this option is chosen as the 
installation default, the double quotation mark (") — unless the 
default is overridden at compile time — must not be used, except 
as a character in a nonnumeric literal. 
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SECTION III — "OLD" LANGUAGE EXTENSIONS 



The language extensions documented in this section require that 
the "old" compiler option be specified; that is, the language 
element in the 1974 Standard has a different interpretation from 



that in the 1968 Standard. Therefore, when 
used, if 1968 Standard results are desired, 
option must be coded. 



these options are 
the "old" compiler 



Note: These extensions are included for compatibility purposes 

only. Therefore, they must be specified only in conjunction 

with 1968 Standard language or with IBM extensions to that 
Standard. 



ENVIRONMENT DIVISION 



SPECIAL-NAMES Paragraph 



In the CURRENCY SIGN clause, the following additional characters 
may be specified^ L / 



SELECT OPTIONAL Clause 



For files not necessarily present during each object program 
execution, OPTIONAL need not be specified; if specified, it is 
treated as documentation. The same function is performed by the 
system through the DUMMY or NULLFILE parameter on the DD 
statement. 






RESERVE ALTERNATE AREAS Clause 

Format 



r NO 




AREA 


RESERVE < > 


ALTERNATE 




integer 




AREAS 



DATA DIVISION 



This clause specifies that the number of buffers represented by 
integer is to be reserved for a physical sequential file or an 
indexed file that is accessed sequentially, in addition to the 
one required buffer which is automatically reserved. 

This clause should not be specified for direct files; if 
specified, the clause is ignored and the one required buffer is 
reserved. 

The number of additional buffers is represented by the value of 
integer. Integer must not exceed 254. 

If NO is written, no additional buffers are reserved, aside from 
the standard minimum of one. 

Note: When the optional word ALTERNATE is specified, the 
RESERVE clause is treated as old language, whether or not the 
"old" compiler option is specified. 



JUSTIFIED In a VALUE Clause 



Using JUSTIFIED in a VALUE clause, under the "old" language 
options, will cause initialization to be right justified. 
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PROCEDURE DIVISION 



NOT in Combined Relation Conditions 



NOT is treated as a logical operator when only the subject is 
implied in an abbreviated combined relation condition. For 
example: 

A = B AND NOT LESS THAN C OR D 

is equivalent to 

((A = B) AND CA NOT < O) OR (A < D) 

NOT is treated as part of the relational operator when both the 
subject and the relational operator are implied. For example: 

A NOT > B AND C 

is equivalent to 

A NOT > B AND A NOT > C 



NOVE Statement Scaling 



If the sending field is a scaled integer (that is> the rightmost 
character in the PICTURE charactei — string is P), and if the 
receiving field is alphanumeric or numeric-edited^ the trailing 
O's are truncated. 



PERFORM Statement in segmented Programs 



blhen a PERFORM statement in an independent segment refers to a 
procedure-name in a permanent segments the independent segment 
is reinitialized upon each exit from the performed procedures. 



/"~~^. 
W 



UNSTRING Statement — DELIMITED BY ALL Option 



When DELIMITED BY ALL is specified/ two or more contiguous 
occurrences of any delimiter are treated as if they were only 
one occurrence; as much of the first occurrence as will fit is 
moved into the current delimiter receiving field (if specified); 
each additional occurrence is moved only if the complete 
occurrence will fit. Thus the current delimiter receiving field 
contains as many complete occurrences of the delimiter as are 
present or as the delimiter receiving field can hold^ whichever 
is smaller. 



SOURCE PROGRAM LIBRARY 



COPY Statement 



Figure 101 shows options of the COPY statement for which the 
"old" compiler option is specified. If option 1, 2, 3, or 4 is 
written* the entire entry is replaced by the information 
identified by library-name, except that data-name (if specified) 
replaces the corresponding data-name from the library. 



^•(fct*-' 
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Option 1 (within a File or Sort description entry^ or within 
the Working-Storage Section or the Linkage Section) 5 

01 data-name COPY statement. 

Option 2 (with a Report Group)* 

01 [data-name] COPY statement. 

Option 3 (within the Working-Storage Section 
or the Linkage Section)? 

77 data-name COPY statement. 

Option 4 (within the Working-Storage Section 
or the Linkage Section)- 

01 data-name-1 REDEFINES data-name-2 COPY statement. 
77 data-name-1 REDEFINES data-name-2 COPY statement. 

Figure 101. COPY Statement — "Old" Language Options 



End of IBM Extension 






COMMUNICATION FEATURE 



RECEIVE MESSAGE Statement 



When an end-of-segment indicator is present, and a RECEIVE 
MESSAGE statement is executed, the end-of-segment indicator is 
treated as a data character. 
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APPENDIX B. ASCII CONSIDERATIONS 



The compiler supports the American National Standard Code for 
Information Interchange (ASCII). Thus the programmer can create 
and process tape files recorded in accordance with the following 
standards^ 

• American National Standard Code for Information Interchange* 
X3. 4-1968 

• American National Standard Magnetic Tape Labels for 
Information Interchange, X3. 27-1969 

• American National Standard Recorded Magnetic Tape for 
Information Interchange C800 CPI, NRZI), X3. 22-1967 

ASCII encoded tape files, when read into the system, are 
automatically translated in the buffers into EBCDIC. Internal 
manipulation of data is performed exactly as if they were EBCDIC 
encoded files. For an output file, the system translates the 
EBCDIC characters into ASCII in the buffers before writing the 
file out on tape. Therefore, there are special considerations 
concerning ASCII encoded files when they are processed in COBOL. 
The following paragraphs discuss these considerations. 



ENVIRONMENT DIVISION 



In the Environment Division, the OBJECT-COMPUTER, SPECIAL-NAMES, 
and FILE-CONTROL paragraphs are affected. 



OBJECT-COMPUTER and SPECIAL-NAMES Paragraphs 



When at least one file in the program is an ASCII-encoded file, 
the alphabet-name clause of the SPECIAL-NAMES paragraph must be 
specified; the alphabet-name must be associated with STANDARD-1 
(for ASCII collating sequence or code set). 

When nonnumeric comparisons within the object program are to use 
the ASCII collating sequence, the PROGRAM COLLATING SEQUENCE 
clause of the OBJECT-COMPUTER paragraph must be specified; the 
alphabet-name used must also be specified as an alphabet-name in 
the SPECIAL-NAMES paragraph, and associated with the STANDARD-1. 
For example^ 

OBJECT-COMPUTER. IBM 370. 

PROGRAM COLLATING SEQUENCE IS ASCII-SEQUENCE. 
SPECIAL-NAMES. ASCII-SEQUENCE IS STANDARD. 

When both clauses are specified, the ASCII collating sequence is 
used in this program to determine the truth value of the 
following nonnumeric comparisons* 

• Those explicitly specified in relation conditions 

• Those explicitly specified in condition-name conditions 

I IBM Extension 1 



Those implicitly specified in an RD entry CONTROL clause 
End of IBM Extension 



• Any nonnumeric sort or merge keys (unless the COLLATING 

SEQUENCE option is specified in the MERGE or SORT statement) 

When the PROGRAM COLLATING SEQUENCE clause is omitted, the 
EBCDIC collating sequence is used for such comparisons. 



-x 



V 



-j/ 
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FZLE-CONTROL Paragraph 



For ASCII files» the ASSIGN clause assignment-name has the 
folloMing format^ 

[comments-] CS-3name 

The file must be a physical sequential file assigned to a 
magnetic tape device. See the System Dependencies chapter. 



I-0-CONTROL Paragraph 



DATA DIVISION 



The assignment-name in a RERUN clause must not specify an 
ASCII-encoded file. 

ASCII-encoded files containing checkpoint records cannot be 
processed. 



In the Data Division^ there are special considerations for the 
FD entry and for data description entries. 



FD Entry — CODE-SET Clause 



The FD Entry for an ASCII-encoded file must contain a CODE-SET 
clause; the alphabet-name must be associated with STANDARD-1 
(for the ASCII code set) in the SPECIAL-NAMES paragraph. For 
example: 

SPECIAL-NAMES. ASCII-SEQUENCE IS STANDARD-1 



FD ASCII-FILE LABEL RECORDS STANDARD 
CODE-SET IS ASCII-SEQUENCE. 



Data Description Entries 



SORT/MERGE FEATURE 



For ASCII filesr the following data description considerations 
apply: 

• PICTURE clause specifications for all five categories of 
data are valid. 

• For signed numeric items^ the SIGN clause with the SEPARATE 
CHARACTER option must be specified. 

• For the USAGE clause^ only the DISPLAY option is valid. 



For ASCII-collated sort/merge operations^ there are special 
considerations in the Environment Division^ the Data Division^ 
and in the SORT and MERGE statements. 



Environment Division 



If the PROGRAM COLLATING SEQUENCE clause specifies an ASCII 
collating sequence* and there is no COLLATING SEQUENCE option in 
the SORT or MERGE statement* any nonnumeric sort or merge keys 
are processed according to the ASCII collating sequence. 

Checkpoint records for ASCII collated sort and merge operations 
are permitted. However* the assignment-name for the RERUN 
clause must not specify an ASCII-encoded file. 
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DATA DIVISION 

There are special considerations for the FD entries for the ff ' 
input and output file» and for data description clauses. \^^ 

The FD entries for the input and output files must specify the 
CODE-SET clause; alphabet-name must be associated with 
STANDARD-1 (ASCII code set) in the SPECIAL-NAMES paragraph. 

In the data description entry* the considerations for the 
PICTURE/ SIGN, and USAGE clauses are the same as for other 
ASCII-encoded files. 

SORT and HERGE Statements 

An ASCII collated sort/merge operation can be specified in two 
Mays: 

• Through the PROGRAM COLLATING SEQUENCE clause in. the 
OBJECT-COMPUTER paragraph. (See the preceding section on 
the Environment Division.) In this case» all nonnumeric 
comparisons in the program are also performed using the 
ASCII collating sequence. 

• Through the COLLATING SEQUENCE option of the SORT or MERGE 
statement; in this case, alphabet-name must be associated 
with STANDARD-1 (for ASCII collating sequence) in the 
SPECIAL-NAMES paragraph. In this case, only this sort/merge 
operation uses the ASCII collating sequence. 

For this sort/merge operation, the COLLATING SEQUENCE option 
takes precedence over the PROGRAM COLLATING SEQUENCE clause. 

If both the PROGRAM COLLATING SEQUENCE clause and the COLLATING 

SEQUENCE option are omitted (or if the one in effect specifies ^ ^ 

an EBCDIC collating sequence), the sort/merge is performed using f 

the EBCDIC collating sequence. \.-J^ 



i 



J 
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APPENDIX C. SYSTEH/370 UNIT RECORD PROCESSING 



This appendix describes special considerations for the following 
IBM System/370 unit record devices^ 3505/ 3525, and 3886. 



3505/3525 CARD PROCESSING 






3505 ONR Processing 



The IBM 3505 Card Reader and the 3525 Card Punch are 80-column 
devices that offer more flexible processing capabilities than 
former card devices. The 3505 card reader can be used for 
sequential reading; it can also be used for Optical Mark Read 
(OMR) processing. Both the 3505 and the 3525 support Read 
Column Eliminate (RCE) processing. The 3525 card punch* when 
equipped with appropriate special features* can be used 
separately as a card reader, as a card punch* as an interpreting 
card punch* and as a printer (either 2-line or multiline 
printing is available)* in addition* the read* punch* and print 
functions (any two or all three) can be combined* so that those 
functions specified are all performed during one pass of a card 
through the device. 

The processing functions are all specified through new 
parameters of the DD statement. For OMR and RCE processing* 
format descriptor card(s) must also be included as the first 
card(s) of the data set. (For OMR processing* the format 
descriptor specifies those columns that are optically marked; 
for RCE processing* the format descriptor specifies those 
columns that are to be ignored.) 

Note: The interpreting card punch is considered one function. 
It cannot be combined with the other functions* but is specified 
through the DD statement for the data set. 



If the user wants to inspect the substitution character 
(hexadecimal "3F") placed in column 80 by the system for a 
defective optically marked card* a record description of 80 
characters must be specified. (Note that the "3F" is placed in 
both card column 80 and the defective (unreadable) card column.) 



3505/3525 RCE Processing 



Ulhen RCE processing is specified for input* the user must not 
refer to the ignored columns (as specified by the format 
descriptor)* or results are unpredictable. 

Nhen RCE processing is specified for output* any data in the 
COBOL record that corresponds to the ignored columns (as 
specified by the format descriptor) is not punched or printed. 



RCE and OMR Format Descriptor 



O 



Ulhen the user specifies (for Optical Mark Read) or R (for Read 
Column Eliminate) in the assignment-name then* at object time* a 
format descriptor must be provided as the first card(s) in the 
data deck. If the format descriptor is missing for such files* 
a message is issued to the operator* and the job is terminated. 

The format descriptor must be the first card(s) in the data 
deck. Column 1 of the first card must be blank. The key word 
FORMAT must be punched in columns 2 through 7. Column 8 must be 
blank. Columns 9 through 71 can contain the parameters that 
specify which columns of the data cards are to be read in OMR or 
RCE mode. Continuation cards are valid. A continuation code 
must be placed in column 72 of the preceding card. Parameters 
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may then be continued* beginning in column 16 of the 
continuation card. Comments, if used, must folloM the last 
operand on each card by at least one blank space, and 
continuation card restrictions must be observed. 

The format of the format descriptor is as follows j 

Col. 

12 7.9 



VV V V OUTPUT. 
FORMAT (N1,N2)C,(N3,N4)]... 

Nl, N2, N3, and N4 may be any decimal integers from 1 through 
80. However, N2 must be greater than or equal to Nl. N4 must 
be greaier than or equal to N3. In addition, for OMR 
processing, Nl and N2 must be both even or both odd, N3 and N4 
must be both even or both odd, and N3 - N2 must be greater than 
or equal to 2. 

In OMR mode, the user establishes which columns are to be read 
in OMR mode. For example, if the user wants to read columns 1, 
3, 5, 7, 9 and 70, 72, 74, 76, 78, 80 in OMR mode, the following 
descriptor format is valid** 

FORMAT (1,9), (70,80) 

In RCE mode, the user specifies those columns that are not to be 
read. For example, if the user chooses to eliminate columns 20 
through 30, and columns 52 through 73, the following format 
descriptor is validv 

FORMAT (20,30), (53,73) 

ASSIGN CLAUSE SPECIFICATION ^-^ 

For the 3505 and 3525 devices, the ASSIGN clause assignment-name 
has the following form? 

UR [-device] -organ i sat i on-name 

The optional device field can be specified to document whether 
this is a 3505 or 3525 device. 

The organization field can be specified as follows* 

for 3505 OMR processing 

R for 3525 RCE processing (including combined function files) 

S for 3505 sequential reading (without OMR processing) and for 
3525 combined function processing (without RCE processing) 

The name field is the external name for this file; it must be 
the name specified in the DD statement for this file. It is a 
1- to 8-character field; the first character must be alphabetic. 
It must conform to the rules for formation of a program-name. 

3525 COMBINED FUNCTION PROCESSING 

COBOL handles each of the separate functions to be combined as a 

separate logical file. Each such logical file has its own file 

structure and procedural processing requirements. However, 

because such combined function files refer to one physical unit, 

the user must observe certain restrictions during processing. 

The following sections explain the programming requirements for £"^\ 

combined function processing. mi 
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The COBOL language does not define the files as being combined 
function files; instead^ the combined functions are specified 
through parameters for the files* DD statements. (In this way^ 
the user can process the same COBOL files as completely separate 
read, punch* and print files.) The necessary parameters are 
given in IBM Svstem/360 Planning Guide for IBM 3505 Card Reader 
and IBM 3525 Card Punch on Sv5tem/370 . 



ENVIRONMENT DIVISION CONSIDERATIONS 



For each function, there must be a separate FILE-CONTROL entry 
written in the Environment Division. Each read function file 
and each punch function file must specify RESERVE 1 AREA. 



SPECIAL-NAMES Paragraph 



If stacker selection of punched output » or line control of 
printed output is desired, mnemonic-names for the purpose can be 
specified in the SPECIAL-NAMES Paragraph. The mnemonic-names 
may be equated with the function-names shown in Figure 102. 



Function Name 



Meaning 



#*\, 

^k^*^ 



SOI 
S02 



COl 
C02 
C03 



Stacker 1 
Stacker 2 



Li ne 1 
Line 2 
Line 5 



C12 Line 23 

Figure 102. IBM 3525 Card Punch — Valid Function-Names 



IBM Extension 



Ulhen stacker selection is specified, RESERVE 1 AREA must also be 
specif i ed. 



End of IBM Extension 



DATA DIVISION CONSIDERATIONS 



For each logical file defined in the Environment Division for 
the combined function structure, there must be a corresponding 
FD entry and 01 record description entry in the File Section of 
the Data Division. 



PROCEDURE DIVISION CONSIDERATIONS 



Input/output operations must proceed in a specified order in the 
Procedure Division. In the 3525 device, the card passes first 
through the reading station, next through the punching station, 
and last through the printing station. Therefore, the combined 
functions may be specified only in the order shown in 
Figure 103. 
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Functions to be 
combined 

read/punch/pr i nt 



read/punch 
read/print 
punch/print 



Order of 
operations 

read 
punch 
[pri nt] 

read 
punch 

read 
Cpri ntJ 

punch 
[print] 



Associated COBOL 
statement 



READ . 

WRITE 

WRITE 

READ . 
WRITE 

READ . 
WRITE 

WRITE 
WRITE 



AT END 
ADVANCING 
AFTER ADVANCING 

AT END 
ADVANCING 

AT END 
AFTER ADVANCING 

ADVANCING 
AFTER ADVANCING 



Figure 103. IBM 3525 Card Punch Combined Function Processing 
Order 



All required operations on one card must be completed before the 
next card is obtained^ or there is an abnormal termination of 
the job. 

The following Procedure Division considerations in the COBOL 
source program apply. 



OPEN Statement 



For any specified function* an OPEN statement must be issued 
before the input/output operation for that function is 
attempted. The following additional considerations applyJ 

• For the read function* the file must be opened for INPUT. 

• For the punch function and print function the file must be 
opened for OUTPUT. 



(f 



READ Statement 



For combined function files* the READ statement* if the function 
is specified* must be the first input/output operation 
specified. A second READ statement must not be issued before 
all necessary combined function operations for the same card 
have been completed* or abnormal termination of the job results. 



WRITE statement^ — Punch Function Files 



When the punch function is used* the next input/output operation 
after the READ statement is issued must be a WRITE statement for 
the punch function file. 

If the user wishes to punch additional data into some of the 
cards and not into others* a dummy WRITE statement must be 
issued for the null cards* first filling the output area with 
SPACES. 



IBM Extension 



If stacker selection for the punch function file is required* 
the user can specify the appropriate stacker function-names in 
the SPECIAL-NAMES paragraph* and then issue WRITE ADVANCING 
statements using the associated mnemonic-names. 



End of IBM Extension 



C 
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URITE Statement — Print Function Files 






CLOSE Statement 



After the punch function operations (if specified) are 
completed^ the user can issue WRITE statement(s) for the print 
function file. 

If the user wishes to print additional data on some of the data 
cards and not on others* the WRITE statement for the null cards 
may be omitted. 

Any attempt to write beyond the limits of the card results in 
abnormal termination of the job; thus* the END-OF-PAGE option 
may not be specified. 

Depending on the capabilities of the specific 3525 model in use, 
the print file may be either a 2-line print file or a multiline 
print file. Up to b^ characters may be printed on each line. 

For a 2-line print file, the lines are printed on line 1 (top 
edge of card) and line 3 (between rows 11 and 12). Line control 
may not be specified- Automatic spacing is provided. 

For a multiline print file, up to 25 lines of characters may be 
printed. Line control may be specified. If line control is not 
specified, automatic spacing is provided. 

Line control is specified by issuing WRITE AFTER ADVANCING 
statements for the print function file. If line control is used 
for one such statement, it must be used for all other WRITE 
statements issued to the file. The maximum number of printable 
characters, including any space characters, is 64. Such WRITE 
statements must not specify space suppression. 

Identifier and integer have the same meanings as they have for 
other WRITE AFTER ADVANCING statements. However, such WRITE 
statements must not increase the line position on the card 
beyond the card limits, or abnormal termination results. 

The mnemonic-name option of the WRITE AFTER ADVANCING statement 
may also be specified. In the SPECIAL-NAMES paragrapbf the 
function-names may be associated with the mnemonic-names as 
shown in Figure 104. 



Function Name Meaning 

C02 Line 3 

C03 Line 5 

C04 Line 7 

Ci2 Line 23 

with WRITE AFTER ADVANCING Statement 

Figure 104. IBM 3525 Card Punch Valid Function Names with WRITE 
AFTER ADVANCING Statement 



See the System Dependencies chapter. 



When processing is completed, a CLOSE statement must be issued 
for each of the combined function files. After a CLOSE 
statement has been issued for any one of the functions, an 
attempt to perform processing for any of the functions results 
in abnormal termination. 
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3886 OCR PROCESSING 



The IBM 3886 Optical Character Reader (OCR) Model 1 is a general 
purpose online unit record device that satisifies a broad range 
of data entry requirements. The 3886 OCR can significantly 
reduce time and cost factors* by eliminating input steps in both 
new and existing applications; a keying process is no longer 
necessary* since the 3886 OCR can read and recognize data 
created by numeric hand printing* high-speed computer printing, 
typewriters* and preprinted forms. 

The IBM 3886 OCR uses several technologies which make it a 
compact* highly reliable* modular device. A powerful 
microprogrammed recognition and control processor performs all 
machine control and character recognition functions* and enables 
the 3886 OCR to perform sophisticated data and blank editing. 

The 3886 OCR accepts documents from 3 x 3 to 9 x 12 inches in 
size. Under program control* it can read documents 
line-by-line* transmitting their contents line-by-line to the 
processor. Additional facilities* all under program control* 
include: document marking* line marking* document ejecting 
(with stacker selection)* and line reading (of current line). 

Support for the 3886 OCR is through &n object-time subroutine in 
the COBOL library* invoked through COBOL CALL statements. By 
means of parameters passed to the subroutine* the following 
operations arB provided: open and close the file* read a line* 
wait for read completion* mark a line* mark the current 
document* eject the current document* and load a format record. 
After each operation* a status indicator is passed back to the 
COBOL program* so that any exceptional condition can be tested. 

Through a fixed format OCR file information area in the 
Working-Storage or Linkage-Section* the COBOL user defines 
storage for the OCR parameters. Of these parameters* the COBOL 
programmer is responsible for providing a file identifier* a 
format record identifier* an operation code* and (depending on 
the operation) a line number* line format number* mark code* and 
stacker number. After completion of each operation a status 
indicator is returned* after completion of a read operation* 
header and data records are also returned. 

Two assembler-language macro instructions define OCR documents. 
The DFR macro instruction defines attributes common to a group 
of line types. The DLINT macro instruction defines specific 
attributes of an individual line type. The DFR and associated 
DLINT macro instructions are used in one assembly to build a 
format record module. The format record indicates the line 
types to be read* attributes of the fields in the lines* and the 
format of the data records to be processed. 

The format record must be link-edited into a user library so 
that it can be loaded into the 3886 OCR when the file is to be 
processed. 

Additional system information on the 3886 OCR can be found in 
OS/VS Program Planning Guide for IBM 3886 Optical Character 
Reader Model 1 . 

Information on the 3886 OCR device can be found in IBM 3886 
Optical Character Reader General Information Manual and Input 
Document Design Guide and Specifications . 
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APPENDIX D. INTERHEDIATE RESULTS 



O 






This appendix describes the conceptual compiler algorithms for 
determining the number of integer and decimal places reserved 
for intermediate results. The following abbreviations are used: 

j, is number of integer places carried for an intermediate 
result. 

If the ROUNDED option is used» and if necessary for 
accuracy f 1 more integer may be added. 

d is number of decimal places carried for an intermediate 
result. 

dmax in a particular statements the larger of either: 

• The number of decimal places needed for the final 
result fields or 

• The maximum number of decimal places defined for any 
operands except 

exponents 

divisors 

opl is first operand in a generated arithmetic statement, 

opg is second operand in a generated arithmetic statement. 

dl sd2 is number of decimal places defined for opl or op2s 
respecti vely. 

i r intermediate result field obtained from the execution of 
a generated arithmetic statement or operation. Irl » i r2 » 
and so forth» represent successive intermediate results. 
These intermediate results &mt generated either in 
registers or in storage locations. Successive 
intermediate results may have the same location. 

In the case of an arithmetic statement containing only a single 
pair of operands^ no intermediate results arB generated^ except 
when the TRUNC option is specified for COMPUTATIONAL items. 
Intermediate results are possible in the following cases: 

• In an ADD or SUBTRACT statement containing multiple operands 
immediately following the verb 

• In a COMPUTE statement specifying a series of arithmetic 
operations 

• In arithmetic expressions contained in IF or PERFORM 
statements 

• In the GIVING option with multiple result fields for the 
ADD, SUBTRACT, MULTIPLY^ DIVIDE, or COMPUTE statements 
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In such cases^ the compiler treats the statement as a succession 

of operations. For example* the following statement* j^ 

COMPUTE Y=A+BXC-D/E+FXXG ^ 

i s replaced by 

K)(F BY G yielding irl 

MULTIPLY B BY C yielding i r2 

DIVIDE E INTO D yielding i r3 

ADD A TO ir2 yielding i r4 

SUBTRACT ir3 FROM i r4 yielding irS 

ADD ir5 TO i rl yielding Y 

COMPILER CALCULATION OF INTERMEDIATE RESULTS 

The number of integer places in an j_r is calculated as follows* 

• The compiler first determines the maximum value that the jx 
can contain by performing the statement in which the i r 
occurs. 

1. If an operand in this statement is a data-name» the 
value used for the data-name i s equal to the numerical 
value of the PICTURE for the data-name (for example* 
PICTURE 9V99 has the value 9.99). 

2. If an operand is a literal* the literal^s actual value 
is used. 

3. If an operand is an intermediate result* the value 
determined for the intermediate result in a previous 
arithmetic operation is used. 

4. If the operation is di vision ^ /f" 



a. If op2 is a data-name* the value used for op2 is the 
minimum nonzero value of the digit in the PICTURE 
for the data-name (for example* PICTURE 9V99 has the 
value 0.01). 

b. If op2 is an intermediate result* the intermediate 
result is treated as though it had a PICTURE* and 
the minimum nonzero value of the digits in this 
PICTURE is used. 

♦ Mhen the maximum value of the Jx i s determined by the above 
procedures* \_ is set equal to the number of integers in the 
maximum value. 

• The number of decimal places contained in an jx is 
calculated as* 

Operation Decimal Places 

+ or - dl or d2* whichever i s greater 

X dl + d2 

/ dmax 

XX dmax if op2 is nonintegral or a data-name* dl x 

op2 if op2 is an integral literal 

Note: The user must define the operands of any arithmetic 
statement with enough decimal places to give the desired 
accuracy in the final result. 



^t y 



c 



J 
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#% 

^lllj,lij»''' 



Figure 105 indicates the action of the compiler Mhen handling 
intermediate results. 



Value 
of 
i + d 


Value 

of 

d 


Value 

of 

1 + dmax 


Action Taken 


<30 
=30 


Any 
value 


Any value 


/ integer and d decimal places 
are carried for ir 


>30 


<dmax 


Any value 


30 - d integer and d decimal 
places are carried for ir 




=dmax 




>dmax 


<30 


/ integer and 30 - / decimal places 
are carried for ir 




=30 






>30 


30 - dmax integer and dmax decimal 
places are carried for ir 



Figure 105. Compiler Action on Intermediate Results 
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APPENDIX E. SAMPLE FILE-PROCESSING PROGRAMS 



The programs in this appendix illustrate the fundamental 
programming techniques associated Mith each type of file 
organization. They are intended to illustrate the input/output 
statements necessary for certain access methods. Other COBOL 
features (the use of the ALTER statement and the PERFORM 
statements for example) are used only incidentally. The 
programs are- 
Sequential File Creation 

Sequential File Updating and Extension 

Indexed File Creation 

Indexed File Updating 

Relative File Creation 

Relative File Updating 

Relative File Retrieval 



SEQUENTIAL FILE CREATION 



This program creates a sequential file of employee salary 
records. The input records are arranged in ascending order of 
employee number. The output file has the identical order. 

Note: The program-i d used by the system is CREATEOS. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CREATE-SEQUENTIAL. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT INPUT-FILE ASSIGN TO SYSOIO-DISKETTE. 

SELECT OUTPUT-FILE ASSIGN TO SYSOll-AS-MSSTORGE 
£ILOIiUJiSJ[S^ S K . 

DATA DIVISION. 

FILE^ECJXOi. 

FD d5mizFltE> LABEL RECORD STANDARD. 

01 INPUT-RECORD. 

05 INPUT-EMPLOYEE-NUMBER 

05 INPUT-EMPLOYEE-NAME 

05 INPUT-EMPLOYEE-CODE 
,J^«**-WlEAJiIr EMP LOYEE-SALARY 
FD CiiyjfJlIcFlI|;i LABEL RECORDS 
01 OUTPUT-RIECORD. 

05 OUTPUT-EMPLOYEE-NUMBER 

05 OUTPUT-EMPLOYEE-NAME 

05 OUTPUT-EMPLOYEE-CODE 

05 OUTPUT-EMPLOYEE-SALARY 
WORKING-STORAGE SECTION. 
01 DISP-RECORD. 

05 OP-NAME PICTURE X(5). 

05 FILLER PICTURE XX VALUE SPACE. 

05 SK PICTURE XX. 






PICTURE 


9(6). 


PICTURE 


X(28). 


PICTURE 


9. 


PICTURE 


9(6)V99. 


STANDARD. 




PICTURE 


9(6). 


PICTURE 


X(28). 


PICTURE 


9. 


PICTURE 


9(6)V99. 
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PROCEDURE DIVISION. 
OPEN-FILES. 

OPEN INPUT INPUT-FILE OUTPUT OUTPUT-FILE 
IF SK NOT = "00" 

MOVE "OPEN" TO OP-NAME 
PERFORM ERROR-OUT-1 THRU ERROR-OUT- 
GO TO CLOSE-FIL^-2, 
BUILD-FILE. ____J.fe~™»6. 

READ INPUT-FILE INTO OUTPUT-RECORD 

AT END GO TO CLOSE-FILES-1 . 
WRITE OUTPUT-RECORD. 

IF SK NOT = "00" 

MOVE "WRITE" TO OP-NAME 

PERFORM ERROR-OUT-1 THRU ERROR-OUT-2. 
■GO TO BUILD-FILE. 



ERROR-OUT-1. 

DISPLAY DISP-RECORD UPON TYPEWRITER. 
ERROR-OUT-2, 
— —EXIT. 



CLOSE-FILES-1. 

CLOSE OUTPUT-FILE. 
CLOSE-FILES-2. 

CLOSE INPUT-FILE. 

STOP RUN. 
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SEQUENTIAL FILE UPDATING AND EXTENSION 



rv\^<mR 



This program updates and extends the file created by the 
CREATE-SEQUENTIAL program. The INPUT-FILE and the I-O-FILE are 
each read. When a match is found between INP UT^EMP LOYEE-NUMBER 
and I-0-EMPLOYEE-NUMBER* the input record ^ej^Taces^the original 
mass storage record. After the I-0-FIl^n] ^^ 
processed/ new employee records a r e c^J'StS f ^STaT t ne^ e^ f the 

Note: The program-id used by the system is UPDATEOS. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATE-SEQUENTIAL . 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES, CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT INPUT-FILE ASSIGN TO SYSOiO-UT-3350-S-DISKETTE. 

SELECT I-O-FILE ASSIGN TO SYS011-AS-MSSTOR6 
FILE STATUS IS SK. 
DATA DIVISION. 
FILE SECTION, 

INPUT-FILE LABEL RECORD STANDARD. 

INPUT-RECORD. 

05 INPUT-EMPLOYEE-NUMBER PICTURE 9(6). 

05 INPUT-EMPLOYEE-NAME PICTURE X(28). 

05 INPUT-EMPLOYEE-CODE PICTURE 9, 

05 INPUT-EMPLOYEE-SALARY PICTURE 9(6)V99. 

I-O-FILE LABEL RECORDS STANDARD. 

I-0-RECORD, 



^^^ 



01 



FD 
01 



PICTURE 
PICTURE 
PICTURE 
PICTURE 



9(6). 
X(28). 
9. 
9(6)V99. 



X(5). 

XX VALUE SPACE. 

XX VALUE ''^ZZ'^. 



05 I-0-EMPLOYEE-NUMBER 
05 I-0-EMPLOYEE-NAME 
05 I-0-EMPLOYEE-CODE 
05 I-0-EMPLOYEE-SALARY 
WORKING-STORAGE SECTION. 
01 DISP-RECORD. 

05 OP-NAME PICTURE 
05 FILLER PICTURE 
05 SK PICTURE 
PROCEDURE DIVISION. 
OPEN-FILES, 

OPEN INPUT INPUT-FILE I-O I-O-FILE. 
IF SK NOT = "00" 

MOVE "OPEN" TO OP-NAME 
PCTFORnsERROR-OUT-l THRU ERROR-OUT-2 
(TO- TO Ct OSE-FILES-2. 

rEAD-INPUT. 
READ INPUT-FILE 
AT END GO TO CLOSE-FILES-1 . 
SWITCH-PARA. 

GO TO READ-I-0. 
EAD-I-O. 

READ I-O-FIL 

AT END<^LTER SWITCH-PjAgP T^"»PI«)CEED TO ADD-ON-FILE 
CL>s'P»p5^0;;p^..^;^«-|y^ /EXrEND) I-O-FILE 

GO TO READ-INPUT, v^__-^ 
IF INPUT-EMPLOYEE-NUMBER GREATER THAN I-0-EMPLOYEE-NUMBER 
-—»— -W.GO TO READ-I-0. 



(" 



IF INPUIrJEia^LOYEE-NUMBER = I-0-EMPLOYEE-NUMBER 
fPERFORM^T[-0-REWRITE-l THRU I-O-REWRITE-2 
-rmrrXJ RtAD-INPUT, 
IF INPUT-EMPLOYEE-NUMBER LESS THAN I-0-EMPLOYEE-NUMBER 
MOVE "INPUT ERR" TO DISP-RECORD 
PERFORM ERROR-OUT-1 THRU ERROR-OUT-2 
DISPLAY INPUT-RECORD 
UPON TYPEWRITER 
MOVE SPACES TO DISP-RECORD. 
GO TO READ-INPUT.' 
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;-0-REWRITE-l. 

REWRITE I-0-RECORD FROM INPUT-RECORD. 
IF SK NOT = "00" 

MOVE "RWRTE" TO OP-NAME 
PERFORM ERROR-OUT-1 THRU ERROR-OUT-2. 
I-O-REWRITE-2. 

EXIT. 
ADD-ON-FILE. 

WRITE I-O-RECORD FROM INPUT-RECORD. 
IF SK NOT = "00" 

MOVE "WRITE" TO OP-NAME 

PERFORM ERROR-OUT-1 THRU ERROR-OUT-2. 

too TO READ-INPUT. 
ERROR-OUT-1. 
DISPLAY DISP-RECORD UPON TYPEWRITER. 
ERROR-OUT-2. 
*^ EXIT. 
CLOSE-FILES-1. 

CLOSE I-O-FILE. 
CLOSE-FILES-2. 

CLOSE INPUT-FILE. 
STOP RUN. 






Appendix E. Sample File-Processing Programs 425 



INDEXED FILE CREATION 



This program creates an indexed file of summary records for bank 
depositors. The key within each indexed file record is REC-ID 
(the depositor's account number); the input records &re ordered 
in ascending sequence upon this key. Records are read from the 
input file and transferred to the indexed file record area. The 
indexed file record is then written. 

Note! The program- id used by the system is CREATEOI. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CREATE-INDEXED. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT INDEXED-FILE ASSIGN TO SYSOIO-INDEXED 
ACCESS SEQUENTIAL ORGANIZATION INDEXED 
RECORD KEY IS REC-ID FILE STATUS IS SK. 

SELECT IN-FILE ASSIGN TO SYSOll-DISKETTE. 

DATA DIVISION. 

FILE SECTION. 

FD INDEXED-FILE LABEL RECORDS STANDARD. 

01 DISK-RECORD. 

05 REC-ID PICTURE X(10). 
05 DISK-FLDl PICTURE X(IO). 
05 DISK-NAME PICTURE X(20). 
05 DISK-BAL PICTURE S99999V99. 
FD IN-FILE LABEL RECORDS STANDARD. 
01 IN-RECORD. 

05 IN-KEY PICTURE X(IO). /f~^ 

05 IN-NAME PICTURE X(IO). u , 

05 IN-BAL PICTURE S99999V99. ^-^ 

WORKING-STORAGE SECTION. 
77 SK PIC XX VALUE "Z2" . 
PROCEDURE DIVISION. 
BEGIN-PROCESSING. 

OPEN INPUT IN-FILE OUTPUT INDEXED-FILE. 
IF SK NOT = "00" 

DISPLAY "OPEN FAILED " SK UPON TYPEWRITER 
STOP RUN. 
PROCESS-PROCEDURE. 

READ IN-FILE AT END GO TO END-JOB. 

MOVE IN-KEY TO REC-ID. 

MOVE IN-NAME TO DISK-NAME 

MOVE IN-BAL TO DISK-BAL 

WRITE DISK-RECORD. 

IF SK NOT = "00" 

DISPLAY "WRITE FAILED " SK DISK-RECORD UPON TYPEWRITER. 
GO TO PROCESS-PROCEDURE. 
END-JOB. 

CLOSE IN-FILE INDEXED-FILE. 
IF SK NOT = "00" 

DISPLAY "CLOSE FAILED " SK UPON TYPEWRITER. 
STOP RUN. 



-^ 
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INDEXED FILE UPDATING 



o 



This program* using dynamic access^ updates the indexed file 
created in the CREATE-INDEXED program. 

The input records contain the key for the record (both generic 
and detailed)* the depositor name* and the amount of the 
transacti on. 

When the input record is read, the program tests whether this is 
a transaction record (in which case all fields of the record are 
filled)* or a record requesting sequential retrieval of a 
specific generic class (in which case only the IN-GEN-FLD of the 
input record contains data). 

Random access is used for the updating and printing of the 
transaction records. Sequential access is used for the 
retrieval and printing of all records within one generic class. 

Note: The program-id used by the system is UPDATEOI. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATE-INDEXED. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT INDEXED-FILE ASSIGN TO SYSOIO-INDEXD 
ACCESS DYNAMIC ORGANIZATION INDEXED 
RECORD KEY REC-ID FILE STATUS SK. 

SELECT IN-FILE ASSIGN TO SYSOll-DISKETTE. 

SELECT PRINT-FILE ASSIGN TO SYS012-PRINTER. 
DATA DIVISION. 
FILE SECTION. 
FD INDEXED-FILE LABEL RECORDS STANDARD. 



01 


DISK-RECORD. 








05 


REC-ID. 








10 


REC-GEN-FLD 


PICTURE 


X(5). 




10 


REC-DET-FLD 


PICTURE 


X(5). 




05 


DISK-FLDl 


PICTURE 


X(10). 




05 


DISK-NAME 


PICTURE 


X(20). 




05 


DISK-BAL 


PICTURE 


S9(5)V99. 


FD 


IN- 


FILE LABEL RECORD STANDARD. 


01 


IN- 
05 


REC. 
IN-ID. 








10 


IN-GEN-FLD 


PICTURE 


X(5). 




10 


IN-DET-FLD 


PICTURE 


X(5). 




05 


IN-NAME 


PICTURE 


X(20). 




05 


IN-AMT 


PICTURE 


S9(5)V99. 


FD 


PRINT-FILE LABEL RECORDS OMITTED 




LINAGE 62 FOOTING 59. 




01 


PRINT-RECORD-1. 








05 


PRINT-ID 


PICTURE 


X(10). 




05 


FILLER 


PICTURE 


X(5). 




05 


PRINT-NAME 


PICTURE 


X(20). 




05 


FILLER 


PICTURE 


X(5). 




05 


PRINT-BAL 


PICTURE 


$* .99-. 




05 


FILLER 


PICTURE 


X(5). 




05 


PRINT-AMT 


PICTURE 


$* .99-. 




05 


FILLER 


PICTURE 


X(5). 




05 


PRINT-NEW-BAL 


PICTURE 


$* .99-. 


01 


PRINT-RECORD-2 


PICTURE 


X(89). 


WOR 


KING 


i-STORAGE SECTION 


^ 




77 


GO- 


TO-SWITCH 


PICTURE 


9 VALUE 1. 


01 


PAGE-HEAD. 








05 


FILLER 


PICTURE 


X(38) VALUE SPACES. 




05 


FILLER 


PICTURE 


X(13) VALUE "UPDATE REPORT". 




05 


FILLER 


PICTURE 


X(38) VALUE SPACES. 
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PICTURE X(81) 
PICTURE A(6) 
PICTURE 99 

PICTURE X(7). 
PICTURE XX 
PICTURE XX 



VALUE SPACES. 
VALUE "PAGE". 
VALUE 00. 



VALUE SPACES. 
VALUE "ZZ". 



01 PAGE-FOOT. 
05 FILLER 
05 FILLER 
05 PG-NUMBER 
01 ERROR-MESSAGE. 
05 OP-NAME 
05 FILLER 
05 SK 
PROCEDURE DIVISION. 
BEGIN-PROCESSING. 

OPEN INPUT IN-FILE 

I-O INDEXED-FILE 

OUTPUT PRINT-FILE. 
IF SK NOT = "00" MOVE "OPEN" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 

GO TO END-JOB-2. 
PERFORM PAGE-START. 
READ-INPUT. 

MOVE SPACES TO IN-REC. 

READ IN-FILE AT END GO TO END-JOB-1 . 

IF IN-DET-FLD = SPACES 

GO TO SEQ-PROCESS-2. 
DYNAM-PROCESS-1. 

MOVE IN-ID TO REC-ID. 

READ INDEXED-FILE. 

IF SK NOT = "00" MOVE "READ-D" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 

GO TO READ-INPUT. 
MOVE DISK-NAME TO PRINT-NAME. 
MOVE DISK-BAL TO PRINT-BAL. 
ADD IN-AMT TO DISK-BAL. 
MOVE DISK-BAL TO PRINT-NEW-BAL . 
PERFORM WRITE-PARA-1 THRU WRITE-PARA-2 . 
DYNAM-PROCESS-2. 

GO TO READ-INPUT. 
SEQ-PROCESS-1. 

MOVE IN-GEN-FLD TO REC-GEN-FLD. 
START INDEXED-FILE 

KEY = REC-GEN-FLD. 
IF SK NOT = "00" MOVE "START_" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 

GO TO READ-INPUT. 
SEQ-PROCESS-2. 

READ INDEXED-FILE NEXT. 

IF SK NOT = "00" MOVE "READ-S" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 

GO TO READ-INPUT. 
IF REC-GEN-FLD GREATER THAN IN-GEN-FLD 

GO TO READ-INPUT. 
MOVE DISK-NAME TO PRINT-NAME. 
MOVE DISK-BAL TO PRINT-BAL PRINT-NEW-BAL. 
PERFORM WRITE-PARA-1 THRU WRITE-PARA-2 . 
SEQ-PROCESS-3. 

GO TO SEQ-PROCESS-1. 
WRITE-PARA-1. 

WRITE PRINT-RECORD-1 

AT END-OF-PAGE 

PERFORM PAGE-END THROUGH PAGE-START. 
REWRITE DISK-RECORD. 
IF SK NOT = "00" MOVE "REWRITE" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2, 
WRITE-PARA-2. 

EXIT. 
PAGE-END. 

ADD 1 TO PG-NUMBER. 

WRITE PRINT-RECORD-2 FROM PAGE-FOOT 

AFTER ADVANCING 3. 
PAGE-START. 

WRITE PRINT-RECORD-2 FROM PAGE-HEAD 

AFTER ADVANCING PAGE. 



A..> 
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ERROR-ROUTINE-1. 

DISPLAY ERROR-MESSAGE UPON TYPEWRITER. 
ERROR-ROUTINE-2. 

EXIT. 
END-JOB-1. 

CLOSE INDEXED-FILE. 

IF SK NOT = "00" MOVE "CLOSE" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2. 
END-JOB-2. 

CLOSE IN-FILE PRINT-FILE. 

STOP RUN. 
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RELATIVE FILE CREATION 



This program creates a relative file of summary sales records u 
using sequential access. Each record contains a 5-year summary \^-^ 
of unit and dollar sales for one Meek of the year; there are 52 
records uiithin the file^ each representing 1 Meek. 

Each input record represents the summary sales for one Meek of 
one year. The records for the first Meek of the last five years 
(in ascending order) are the first five input records. The 
records for the second Meek of the last five years are the next 
five input records, and so forth. Thus, five input records fill 
one output record. 

Because it is not needed for sequential access unless the START 
statement is used, the RELATIVE KEY for the RELATIVE-FILE is not 
specified. (For updating, hoMever, the key Mould be 
INPUT-WEEK.) 

Note: The program-id used by the system is CREATEOR. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. CREATE-RELATIVE. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT RELATIVE-FILE ASSIGN TO SYSOIO-RELATIVE 
ACCESS SEQUENTIAL ORGANIZATION RELATIVE 
FILE STATUS SK. 
SELECT INPUT-FILE ASSIGN TO SYSOll-AS-SEQUENTIAL 
FILE STATUS SKI. 
DATA DIVISION. .f x 

FILE SECTION. ( 

FD RELATIVE-FILE LABEL RECORDS ARE STANDARD. W 

01 RELATIVE-RECORD-01. 

05 RELATIVE-RECORD OCCURS 5. 

10 RELATIVE-YEAR PICTURE 99. 

10 RELATIVE-WEEK PICTURE 99. 

10 RELATIVE-UNIT-SALES PICTURE S9(6). 
10 RELATIVE-DOLLAR-SALES PICTURE S9(9)V99. 
FD INPUT-FILE LABEL RECORDS STANDARD. 
01 INPUT-RECORD. 

05 INPUT-YEAR PICTURE 99. 

05 INPUT-WEEK PICTURE 99. 

05 INPUT-UNIT-SALES PICTURE S9(6). 
05 INPUT-DOLLAR-SALES PICTURE S9(9)V99. 
WORKING-STORAGE SECTION. 

77 OCCURS-CONTROL PICTURE 9 VALUE 0. 

01 WORK-RECORD. 

05 WORK-YEAR PICTURE 99 VALUE 00. 

05 WORK-WEEK PICTURE 99. 

05 WORK-UNIT-SALES PICTURE S9(6). 
05 WORK-DOLLAR-SALES PICTURE S9(9)V99. 
01 ERROR-MESSAGE. 

05 OP-NAME PICTURE X(5). 

05 FILLER PICTURE XX VALUE SPACE. 

05 SK PICTURE XX VALUE "ZZ". 

05 SKI PICTURE XX VALUE "ZZ". 

PROCEDURE DIVISION. 
BEGIN-PROCESSING. 

OPEN INPUT INPUT-FILE OUTPUT RELATIVE-FILE. 
IF SK NOT = "00" OR SKI NOT = "00" 
MOVE "OPEN" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THROUGH ERROR-ROUTINE-2 
STOP RUN. 



C 
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READ-FILE. 

READ INPUT-FILE AT END GO TO END-ROUTINE. 
IF SKI NOT = "00" 

MOVE "READ " TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 
GO TO READ-FILE. 
PROCESS-RECORD. 

IF INPUT-YEAR GREATER THAN WORK-YEAR 

ADD 1 TO OCCURS-CONTROL. 
IF INPUT-YEAR LESS THAN WORK-YEAR 
PERFORM WRITE-1 THRU WRITE-2 
SUBTRACT 4 FROM OCCURS-CONTROL. 
MOVE INPUT-RECORD TO WORK-RECORD 

MOVE WORK-RECORD TO RELATIVE-RECORD (OCCURS-CONTROL). 
GO TO READ-FILE. 
WRITE-1. 

WRITE RELATIVE-RECORD-01. 

IF SK NOT = "00" MOVE "WRITE" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2. 
WRITE-2. 

EXIT. 
ERROR-ROUTINE-1. 

DISPLAY ERROR-MESSAGE UPON TYPEWRITER. 
ERROR-ROUTINE-2. 

EXIT. 
END-ROUTINE. 

CLOSE RELATIVE-FILE INPUT-FILE. 
IF SK NOT = "00" OR SKI NOT = "00" 
MOVE "CLOSE" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2, 
STOP RUN. 
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RELATIVE FILE UPDATING 



This program updates the file of summary sales records created ^ 
in the CREATE-RELATIVE program* using sequential access. The x,.../ 
updating program adds a record for the new year, and deletes the 
oldest year's records from the RELATIVE-FILE. 

The input record represents the summary sales record for one 
Meek of the last preceding year. The RELATIVE KEY for the 
RELATIVE-FILE is present in the input record as INPUT-WEEK. The 
RELATIVE KEY is used to check that the record was correctly 
written. 

Note: The program- id used by the system is UPDATEOR. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATE-RELATIVE. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT RELATIVE-FILE ASSIGN TO SYSOIO-RELATIVE 

ACCESS SEQUENTIAL ORGANIZATION RELATIVE 

RELATIVE KEY INPUT-WEEK FILE STATUS SK. 

SELECT INPUT-FILE ASSIGN TO SYSOll-AS-SEQUENTIAL 

FILE STATUS SKI. 
DATA DIVISION. 
FILE SECTION. 

FD RELATIVE-FILE LABEL RECORDS STANDARD. 
01 RELATIVE-RECORD PICTURE X(105). 

FD INPUT-FILE LABEL RECORDS STANDARD. 
01 INPUT-RECORD. 

05 INPUT-YEAR PICTURE 99. ^r x 

05 INPUT-WEEK PICTURE 99. i 

05 INPUT-UNIT-SALES PICTURE S9(6). V> 

05 INPUT-DOLLAR-SALES PICTURE S9(9)V99. 
WORKING-STORAGE SECTION. 
01 WORK-RECORD. 

05 FILLER PICTURE X(21). 

05 CURRENT-WORK-YEARS PICTURE X(84). 

05 NEW-WORK-YEAR. 

10 WORK-YEAR PICTURE 99. 

10 WORK-WEEK PICTURE 99. 

10 WORK-UNIT-SALES PICTURE S9(6), 

10 WORK-DOLLAR-SALES PICTURE S9(9)V99. 
66 WORK-OUT-RECORD RENAMES 

CURRENT-WORK-YEARS THRU NEW-WORK-YEAR. 
01 ERROR-MESSAGE. 

05 OP-NAME PICTURE X(7). 

05 FILLER PICTURE XX VALUE SPACES. 

05 SK PICTURE XX VALUE "ZZ". 

05 SKI PICTURE XX VALUE "ZZ". 

PROCEDURE DIVISION. 
BEGIN-PROCESSING. 

OPEN INPUT INPUT-FILE I-O RELATIVE-FILE. 

IF SK NOT = "00" OR SKI NOT = "00" 
MOVE "OPEN" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 
STOP RUN. 
READ-FILES. 

READ INPUT-FILE INTO NEW-WORK-YEAR 
AT END GO TO END-PROCESSING. 

READ RELATIVE-FILE INTO WORK-RECORD 
AT END GO TO END-PROCESSING. 
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^RELATIVE KEY INPUT-WEEK WAS SPECIFIED. THEREFORE 
X INPUT-WEEK NOW CONTAINS THE RELATIVE RECORD 
^ NUMBER OF THE RECORD JUST RETRIEVED FROM 

X RELATIVE-FILE. 

IF SK NOT = "00" MOVE "READ-R" TO OP-NAME 

PERFORM ERROR-ROUTINE-I THRU ERROR-ROUTINE-2 
GO TO READ-FILES. 
IF SKI NOT = "00" MOVE "READ-I" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 
GO TO READ-FILES. 
IF INPUT-WEEK NOT = WORK-WEEK 

DISPLAY "INVALID RECORD MATCH" 
INPUT-WEEK WORK-WEEK 
UPON TYPEWRITER 
GO TO READ-FILES. 
WRITE-RELATIVE. 

REWRITE RELATIVE-RECORD FROM WORK-OUT-RECORD. 
IF SK NOT = "00" MOVE "REWRITE" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2. 
GO TO READ-FILES. 
ERROR-ROUTINE-1. 

DISPLAY ERROR-MESSAGE UPON TYPEWRITER. 
ERROR-ROUTINE-2. 

EXIT. 
END-PROCESSING. 

CLOSE RELATIVE-FILE INPUT-FILE 
STOP RUN. 
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RELATIVE FILE RETRIEVAL 



This program, using dynamic access, retrieves the summary file 
created by the CREATE-RELATIVE program. 

The records of the INPUT-FILE contain one required field 
(INPUT-WEEK), which is the RELATIVE KEY for RELATIVE-FILE, and 
one optional field (END-WEEK). 

An input record containing data in INPUT-WEEK and spaces in 
END-WEEK requests a printout for that one specific 
RELATIVE-RECORD; the record i s retrieved through random access. 

An input record containing data in both INPUT-WEEK and END-WEEK 
requests a printout of all the RELATIVE-FILE records within the 
RELATIVE KEY range of INPUT-WEEK through END-WEEK, inclusive; 
these records are retrieved through sequential access. 

Note: The program- id used by the system is RETRVEOR. 

IDENTIFICATION DIVISION. 
PROGRAM-ID. RETRVE-RELATIVE. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 
SPECIAL-NAMES. CONSOLE IS TYPEWRITER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT RELATIVE-FILE ASSIGN TO SYSOIO-RELATIVE 
ACCESS DYNAMIC ORGANIZATION RELATIVE 
RELATIVE KEY INPUT-WEEK 
FILE STATUS SK. 
SELECT INPUT-FILE ASSIGN TO SYSOll-CARDS . 
SELECT PRINT-FILE ASSIGN TO SYS012-PRINTER. 
DATA DIVISION. 
FILE SECTION. 

FD RELATIVE-FILE LABEL RECORDS ARE STANDARD. 
RELATIVE-RECORD-01. 
05 RELATIVE-RECORD OCCURS 5. 

10 RELATIVE-YEAR PICTURE 99. 

10 RELATIVE-WEEK PICTURE 99. 

10 RELATIVE-UNIT-SALES PICTURE S9(6). 

10 RELATIVE-DOLLAR-SALES PICTURE S9(9)V99. 
INPUT-FILE LABEL RECORDS OMITTED. 
INPUT-RECORD. 
05 INPUT-WEEK PICTURE 99. 

05 END-WEEK PICTURE 99 BLANK WHEN ZERO, 

FD PRINT-FILE LABEL RECORDS OMITTED. 
01 PRINT-RECORD. 



01 



FD 
01 



\^ y 



PICTURE 99. 
PICTURE X(5). 
PICTURE 99. 
PICTURE X(5). 
PICTURE ZZZ,ZZ9. 
PICTURE X(5). 
PICTURE $,,.99. 



05 FRINT-WEEK 

05 FILLER 

05 PRINT-YEAR 

05 FILLER 

05 PRINT-UNIT-SALES 

05 FILLER 

05 PRINT-DOLLAR-SALES 
WORKING-STORAGE SECTION. 
77 OCCURS-CONTROL 
01 ERROR-MESSAGE. 

05 OP-NAME 

05 FILLER 

05 SK 
PROCEDURE DIVISION. 
BEGIN-PROCESSING. 

OPEN INPUT INPUT-FILE RELATIVE-FILE 
OUTPUT PRINT-FILE. 

IF SK NOT = "00»» MOVE "OPEN" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 
GO TO END-ROUTINE-2. 

MOVE SPACES TO PRINT-RECORD. 



PICTURE 9 VALUE 0. 

PICTURE X(5). 

PICTURE XX VALUE SPACES. 

PICTURE XX VALUE "ZZ" . 
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READ-INPUT-FILE. 

READ INPUT-FILE AT END GO TO END-ROUTINE-1 . 

IF END-WEEK NOT = SPACES 

GO TO SEQUENTIAL-PROCESS. 
RANDOM-PROCESS. 

READ RELATIVE-FILE 

PERFORM WRITE-PRINT-1 THRU WRITE-PRINT-3 . 

GO TO READ-INPUT-FILE. 
SEQUENTIAL-PROCESS. 

START RELATIVE-FILE. 

IF SK NOT = "00" MOVE "START" TO OP-NAME 

PERFORM ERROR-ROUTINE-1 THRU ERROR-ROUTINE-2 
GO TO READ-INPUT-FILE. 

PERFORM READ-REL-SEQ-1 THRU READ-REL-SEQ-3 
UNTIL PRINT-WEEK = END-WEEK. 

GO TO READ-INPUT-FILE. 
READ-REL-SEQ-1. 

READ RELATIVE-FILE NEXT AT END GO TO END-ROUTINE-1. 
READ-REL-SEQ-2. 

PERFORM WRITE-PRINT-1 THRU WRITE-PRINT-3 . 
READ-REL-SEQ-3. 

EXIT. 
WRITE-PRINT-1. 

ADD 1 TO OCCURS-CONTROL. 

WRITE PRINT-RECORD FROM RELATIVE-RECORD (OCCURS-CONTROL) 
AFTER ADVANCING 2. 

IF OCCURS-CONTROL = 5 MOVE TO OCCURS-CONTROL 
GO TO WRITE-PRINT-3. 
WRITE-PRINT-2. 

GO TO WRITE-PRINT-1. 
WRITE-PRINT-3. 

EXIT. 
ERROR-ROUTINE-1. 

DISPLAY ERROR-MESSAGE UPON TYPEWRITER. 
ERROR-ROUTINE-2. 

EXIT. 
END-ROUTINE-1. 

CLOSE RELATIVE-FILE. 
END-ROUTINE-2. 

CLOSE INPUT-FILE PRINT-FILE. 

STOP RUN. 
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4"^^. 
t y 



The following list identifies all reserved words ini 
• American National Standard, 3.23-1974 

CODASYL COBOL (from CODASYL COBOL Journal of Development , 



dated 


March 1980) 


but not 


in OS/VS COBOL. 


OS/VS 


COBOL 




CODASYL 








ANS 


COBOL 


OS/VS 


Reserved Uord 


COBOL 


only 


COBOL 


ACCEPT 




X 


- 


X 


ACCESS 




X 


- 


X 


ACTUAL 




- 


- 


X 


ADD 




X 


- 


X 


ADVANCING 




X 


- 


X 


AFTER 




X 


- 


X 


ALL 




X 


- 


X 


ALPHABET 




- 


X 


- 


ALPHABETIC 




X 


- 


X 


ALPHANUMERIC 


- 


X 


— 


ALPHANUMERIC-EDITED 


— 


X 


- 


ALSO 




X 


- 


X 


ALTER 




X 


- 


X 


ALTERNATE 




X 


- 


X 


AND 




X 


- 


X 


ANY 




- 


X 


- 


APPLY 




- 


- 


X 


ARE 




X 


~ 


X 


AREA 




X 


- 


X 


AREAS 




X 


— 


X 


ASCENDING 




X 


~ 


X 


ASSIGN 




X 


- 


X 


AT 




X 


- 


X 


AUTHOR 




X 


- 


X 


BASIS 




- 


- 


X 


BEFORE 




X 


- 


X 


BEGINNING 




~ 


- 


X 


BINARY 




- 


X 


- 


BIT 




- 


X 


- 


BITS 




- 


X 


- 


BLANK 




X 


- 


X 


BLOCK 




X 


- 


X 


BOOLEAN 




- 


X 


- 


BOTTOM 




X 


- 


X 


BY 




X 


— 


X 


CALL 




X 


- 


X 


CANCEL 




X 


- 


X 


CBL 




- 


- 


X 


CD 




X 


- 


X 


CF 




X 


- 


X 






436 IBM VS COBOL for OS/VS 



o 





ANS 


COBOL 


os/vs 


Reserved Uord 


COBOL 


only 


COBOL 


CH 


X 


- 


X 


CHANGED 


- 


- 


X 


CHARACTER 


X 


- 


X 


CHARACTERS 


X 


- 


X 


CLOCK-UNITS 


X 


— 


— 


CLOSE 


X 


- 


X 


COBOL 


X 


- 


- 


CODE 


X 


- 


X 


CODE-SET 


X 


- 


X 


COLLATING 


X 


- 


X 


COLUMN 


X 


- 


X 


COMMA 


X 


- 


X 


COMMIT 


- 


X 


- 


COMMON 


- 


X 


- 


COMMUNICATION 


X 


— 


X 


COMP 


X 


^ 


X 


COMP-1 


- 


- 


X 


COMP-2 


- 


- 


X 


COMP-3 


- 


- 


X 


COMP-4 


— 


— 


X 


COMPUTATIONAL 


X 


- 


X 


COMPUTATIONAL-1 


- 


- 


X 


COMPUTATIONAL-2 


- 


- 


X 


COMPUTATIONAL-3 


- 


- 


X 


COMPUTATIONAL-^ 


- 


- 


X 


COMPUTE 


X 


- 


X 


CONFIGURATION 


X 


- 


X 


CONNECT 


- 


X 


- 


CONSOLE 


- 


- 


X 


CONTAINS 


X 


- 


X 


CONTENT 


- 


X 


;- 


CONTINUE 


- 


X 


- 


CONTROL 


X 


- 


X 


CONTROLS 


X 


- 


X 


CONVERTING 


— 


X 


— 


COPY 


X 


-. 


X 


CORE-INDEX 


- 


- 


X 


CORR 


X 


- 


X 


CORRESPONDING 


X 


- 


X 


COUNT 


X 


— 


X 


CSP 


- 


- 


X 


CURRENCY 


X 


- 


X 


CURRENT 


- 


X 


- 


CURRENT-DATE 


- 


- 


X 


COl 


— 


— 


X 


C02 


_ 


- 


X 


C03 


- 


- 


X 


C04 


- 


- 


X 


COS 


~ 


- 


X 


C06 


— 


- 


X 


C07 


- 


- 


X 


COS 


~ 


- 


X 


C09 


- 


- 


X 


CIO 


- 


- 


X 


Cll 


- 


- 


X 
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CODAS YL 






ANS 


COBOL 


os/vs 


Reserved Uord 


COBOL 


only 


COBOL 


C12 


— 


_ 


X 


DATA 


X 


- 


X 


DATE 


X 


- 


X 


DATE-COMPILED 


X 


- 


X 


DATE-WRITTEN 


X 


- 


X 


DAY 


X 


~ 


X 


DAY-OF-WEEK 


- 


X 


- 


DB 


- 


X 


~ 


DB-ACCESS-CONTROL-KEY 


- 


X 


- 


DB-DATA-NAME 


- 


X 


— 


DB-EXCEPTION 


- 


X 


- 


DB-RECORD-NAME 


- 


X 


- 


DB-SET-NAME 


- 


X 


- 


DB-STATUS 


- 


X 


- 


DE 


X 


- 


X 


DEBUG 


- 


~ 


X 


DEBUG-CONTENTS 


X 


- 


X 


DEBUG-ITEM 


X 


- 


X 


DEBUG-LINE 


X 


- 


X 


DEBUG-NAME 


X 


— 


X 


DEBUG-SUB-1 


X 


- 


X 


DEBUG-SUB-2 


X 


- 


X 


DEBUG-SUB-3 


X 


- 


X 


DEBUGGING 


X 


- 


X 


DECIMAL-POINT 


X 


- 


X 


DECLARATIVES 


X 


- 


X 


DELETE 


X 


- 


X 


DELIMITED 


X 


- 


X 


DELIMITER 


X 


- 


X 


DEPENDING 


X 


~ 


X 


DESCENDING 


X 


- 


X 


DESTINATION 


X 


- 


X 


DETAIL 


X 


- 


X 


DISABLE 


X 


- 


X 


DISCONNECT 


- 


X 


— 


DIS 


- 


~ 


X 


DISPLAY 


X 


- 


X 


DISPLAY-n 


- 


X 


- 


DISPLAY-ST 


- 


- 


X 


DIVIDE 


X 


— 


X 


DIVISION 


X 


- 


X 


DOWN 


X 


- 


X 


DUPLICATE 


- 


X 


- 


DUPLICATES 


X 


- 


X 


DYNAMIC 


X 


- 


X 


EGI 


X 


- 


X 


EJECT 


- 


- 


X 


ELSE 


X 


- 


X 


EMI 


X 


- 


X 


EMPTY 


- 


X 


— 


ENABLE 


X 


- 


X 


END 


X 


- 


X 


END-ADD 


- 


X 


- 


END-CALL 


- 


X 


— 


END-COMPUTE 


- 


X 


- 



c 
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Reserved Uord 

END-DELETE 

END-DIVIDE 

END-EVALUATE 

END-IF 

END-MULTIPLY 

END-OF-PAGE 

END-PERFORM 

END-READ 

END-RECEIVE 

END-RETURN 

END-REWRITE 

END-SEARCH 

END-START 

END-STRING 

END-SUBTRACT 

END-UNSTRING 

END-WRITE 

ENDING 

ENTER 

ENTRY 

ENVIRONMENT 

EOP 

EQUAL 

EQUALS 

ERASE 

ERROR 

ESI 

EVALUATE 

EVERY 

EXAMINE 

EXCEEDS 

EXCEPTION 

EXCLUSIVE 

EXHIBIT 

EXIT 

EXOR 

EXTEND 

EXTERNAL 

FALSE 

FD 

FILE 

FILE-CONTROL 

FILE-LIMIT 

FILE-LIMITS 

FILLER 

FINAL 

FIND 

FINISH 

FIRST 

FOOTING 

FOR 

FREE 

FROM 

FUNCTION 

GENERATE 



ANS 


COBOL 


os/vs 


COBOL 


only 


COBOL 


- 


X 


- 


- 


X 


- 


- 


X 


- 


- 


X 


- 


- 


X 


- 


X 


- 


X 


- 


X 


- 


- 


X 


- 


- 


X 


- 


- 


X 


- 


~ 


X 


■ - 


- 


X 


- 


- 


X 


- 


- 


X 


- 


- 


X 


- 


.. 


X 


~ 


- 


X 


- 


- 


- 


X 


X 


- 


X 


- 


- 


X 


X 


— 


X 


X 


- 


X 


X 


- 


X 


- 


X 


- 


- 


X 


— 


X 


— 


X 


X 


- 


X 


- 


X 


- 


X 


- 


X 


- 


- 


X 


- 


X 


- 


X 


- 


X 


- 


X 


- 


- 


- 


X 


X 


- 


X 


- 


X 


- 


X 


- 


X 


- 


X 


- 


- 


X 


- 


X 


- 


X 


X 


- 


X 


X 


- 


X 


- 


- 


X 


- 


- 


X 


X 


- 


X 


X 


. 


X 


- 


X 


- 


- 


X 


- 


X 


- 


X 


X 


— 


X 


X 


- 


X 


- 


X 


~ 


X 


- 


X 


- 


X 


- 


X 


- 


X 
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CODAS YL 






ANS 


COBOL 


os/vs 


Reserved Uord 


COBOL 


only 


COBOL 


GET 


— 


X 


_ 


GIVING 


X 


- 


X 


GLOBAL 


- 


X 


- 


GO 


X 


- 


X 


GREATER 


X 


- 


X 


GROUP 


X 


- 


X 


HEADING 


X 


- 


X 


HIGH-VALUE 


X 


- 


X 


HIGH-VALUES 


X 


- 


X 


I-O 


X 


- 


X 


I-0-CONTROL 


X 


- 


X 


ID 


- 


- 


X 


IDENTIFICATION 


X 


- 


X 


IF 


X 


- 


X 


IN 


X 


— 


X 


INDEX 


X 


- 


X 


INDEX-n 


- 


X 


- 


INDEXED 


X 


- 


X 


INDICATE 


X 


- 


X 


INITIAL 


X 


- 


X 


INITIALIZE 


- 


X 


X 


INITIATE 


X 


- 


X 


INPUT 


X 


- 


X 


INPUT-OUTPUT 


X 


- 


X 


INSERT 


- 


- 


X 


INSPECT 


X 


- 


X 


INSTALLATION 


X 


- 


X 


INTO 


X 


- 


X 


INVALID 


X 


■ - 


X 


IS 


X 


- 


X 


JUST 


X 


- 


X 


JUSTIFIED 


X 


- 


X 


KEEP 


- 


X 


- 


KEY 


X 


- 


X 


LABEL 


X 


— 


X 


LAST 


X 


- 


X 


LD 


- 


X 


- 


LEADING 


X 


- 


X 


LEAVE 


- 


- 


X 


LEFT 


X 


- 


X 


LENGTH 


X 


- 


X 


LESS 


X 


- ■ 


X 


LIMIT 


X 


- 


X 


LIMITS 


X 


- 


X 


LINAGE 


X 


— 


X 


LINAGE-COUNTER 


X 


- 


X 


LINE 


X 


- 


X 


LINE-COUNTER 


X 


- 


X 


LINES 


X 


- 


X 


LINKAGE 


X 


- 


X 


LOCALLY 


- 


X 


- 


LOCK 


X 


- 


X 


LOW-VALUE 


X 


- 


X 


LOW-VALUES 


X 


- 


X 


MEMBER 


- 


X 


- 
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CODASYL 
ANS COBOL OS/VS 
Reserved Uord COBOL only COBOL 



O 



MEMORY 


X 


- 


X 


MERGE 


X 


- 


X 


MESSAGE 


X 


- 


X 


MODE 


X 


- 


X 


MODIFY 


- 


X 


- 


MODULES 


X 


- 


X 


MORE-LABELS 


- 


- 


X 


MOVE 


X 


- 


X 


MULTIPLE 


X 


- 


X 


MULTIPLY 


X 


- 


X 


NAMED 


- 


_ 


X 


NATIVE 


X 


- 


X 


NEGATIVE 


X 


- 


X 


NEXT 


X 


- 


X 


NO 


X 


- 


X 


NOMINAL 


- 


X 


X 


NOT 


X 


- 


X 


NOTE 


- 


- 


X 


NULL 


- 


X 


- 


NUMBER 


X 


- 


X 


NUMERIC 


X 


- 


X 


NUMERIC-EDITED 


- 


X 


- 


OBJECT-COMPUTER 


X 


- 


X 


OCCURS 


X 


- 


X 


OF 


X 


- 


X 


OFF 


X 


- 


X 


OMITTED 


X 


- 


X 


ON 


X 


- 


X 


OPEN 


X 


- 


X 


OPTIONAL 


X 


- 


X 


OR 


X 


— 


X 


ORDER 


- 


X 


- 


ORGANIZATION 


X 


- 


X 


OTHER 


- 


X 


- 


OTHERWISE 


- 


- 


X 


OUTPUT 


X 


_ 


X 


OVERFLOW 


X 


- 


X 


OWNER 


- 


X 


- 


PACKED-DECIMAL 


- 


X 


- 


PADDING 


- 


X 


— 


PAGE 


X 


- 


X 


PAGE-COUNTER 


X 


- 


X 


PASSWORD 


- 


- 


X 


PERFORM 


X 


- 


X 


PF 


X 


- 


X 


PH 


X 


_ 


X 


PIC 


X 


- 


X 


PICTURE 


X 


- 


X 


PLUS 


X 


- 


X 


POINTER 


X 


- 


X 


POSITION 


X 


- 


X 


POSITIONING 


- 


- 


X 


POSITIVE 


X 


- 


X 


PRINTING 


X 


- 


- 


PRIOR 


- 


X 


- 
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PROCEDURE 


X 


- 


X 


PROCEDURES 


X 


- 


X 


PROCEED 


X 


- 


X 


PROCESSING 


- 


- 


X 


PROGRAM 


X 


- 


X 


PROGRAM-ID 


X 


, _ 


X 


PROTECTED 


- 


X 


- 


PURGE 


- 


X 


- 


QUEUE 


X 


- 


X 


QUOTE 


X 


- 


X 


QUOTES 


X 


- 


X 


RANDOM 


X 


- 


X 


RD 


X 


- 


X 


READ 


X 


- 


X 


READY 


~ 


- 


X 


REALM 


- 


X 


- 


REALMS 


- 


X 


- 


RECEIVE 


X 


- 


X 


RECONNECT 


- 


X 


- 


RECORD 


X 


- 


X 


RECORD-NAME 


— 


X 


- 


RECORD-OVERFLOW 


- 


- 


X 


RECORDS 


X 


- 


X 


REDEFINES 


X 


- 


X 


REEL 


X 


- 


X 


REFERENCE 


. 


X 


— 


REFERENCES 


X 


- 


X 


RELATIVE 


X 


- 


X 


RELEASE 


X 


- 


X 


RELOAD 


- 


- 


X 


REMAINDER 


X 


^ 


X 


REMARKS 


- 


- 


X 


REMOVAL 


X 


- 


X 


RENAMES 


X 


- 


X 


REORG-CRITERIA 


- 


- 


X 


REPEATED 


— 


X 


- 


REPLACE 


- 


X 


-• 


REPLACING 


X 


- 


X 


REPORT 


X 


- 


X 


REPORTING 


X 


— 


X 


REPORTS 


X 


_ 


X 


REREAD 


- 


- 


X 


RERUN 


X 


- 


X 


RESERVE 


X 


- 


X 


RESET 


X 


- 


X 


RETAINING 


. 


X 


— 


RETRIEVAL 


- 


X 


_ 


RETURN 


X 


- 


X 


RETURN-CODE 


- 


- 


X 


REVERSED 


X 


— 


X 


REWIND 


X 


- 


X 


REWRITE 


X 


- 


X 


RF 


X 


- 


X 


RH 


X 


- 


X 


RIGHT 


X 


- 


X 
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CODASYL 






ANS 


COBOL 


os/vs 


Reserved Uord 


COBOL 


only 


COBOL 


ROLLBACK 


~ 


X 


_ 


ROUNDED 


- 


- 


X 


RUN 


X 


- 


X 


SAME 


X 


- 


X 


SD 


X 


— 


X 


SEARCH 


X 


- 


X 


SECTION 


X 


- 


X 


SECURITY 


X 


- 


X 


SEEK 


- 


- 


X 


SEGMENT 


X 


— 


X 


SEGMENT-LIMIT 


X 


- 


X 


SELECT 


X 


- 


X 


SELECTIVE 


- 


- 


X 


SEND 


X 


- 


X 


SENTENCE 


X 


— 


X 


SEPARATE 


X 


- 


X 


SEQUENCE 


X 


- 


X 


SEQUENTIAL 


X 


- 


X 


SET 


X 


- 


X 


SETS 


- 


X 


— 


SIGN 


X 


- 


X 


SIZE 


X 


- 


X 


SKIP-1 


- 


- 


X 


SKIP-2 


- 


- 


X 


SKIP-3 


- 


— 


X 


SORT 


X 


- 


X 


SORT-CORE-SIZE 


- 


- 


X 


SORT-FILE-SIZE 


- 


~ 


X 


SORT-MERGE 


X 


- 


X 


SORT-MESSAGE 


- 


— 


X 


SORT-MODE-SIZE 


- 


- 


X 


SORT-RETURN 


- 


"- 


X 


SOURCE 


X 


-• 


X 


SOURCE-COMPUTER 


X 


- 


X 


SPACE 


X 


— 


X 


SPACES 


X 


- 


X 


SPECIAL-NAMES 


X 


" 


X 


STANDARD 


X 


- 


X 


STANDARD-1 


X 


- 


X 


STANDARD-2 


- 


X 


~ 


START 


X 


" 


X 


STATUS 


X 


- 


X 


STOP 


X 


- 


X 


STORE 


- 


- 


X 


STRING 


X 


~ 


X 


SUB-QUEUE-1 


X 


- 


X 


SUB-QUEUE-2 


X 


- 


X 


SUB-QUEUE-3 


X 


- 


X 


SUB-SCHEMA 


- 


X 


- 


SUBTRACT 


X 


"- 


X 


SUM 


X 


- 


X 


SUPPRESS 


X 


- 


X 


SYMBOLIC 


X 


- 


X 


SYNC 


X 


- 


X 


SYNCHRONIZED 


X 


- 


X 



Appendix F. 05/VS COBOL Reserved WQrd List 443 



Reserved Uord 

SYSIN 

SYSOUT 

SYSPUNCH 

501 

S02 

TABLE 

TALLY 

TALLYING 

TAPE 

TENANT 

TERMINAL 

TERMINATE 

TEST 

TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIME-OF-DAY 

TIMES 

TO 

TOP 

TOTALED 

TOTALING 

TRACE 

TRACK-AREA 

TRACK-LIMIT 

TRACKS 

TRAILING 

TRANSFORM 

TRUE 

TYPE 

UNEQUAL 

UNIT 

UNSTRING 

UNTIL 

UP 

UPDATE 

UPON 

UPSI-0 
UPSI-1 
UPSI-2 
UPSI-3 
UPSI-4 

UPSI-5 

UPSI-6 

UPSI-7 

USAGE 

USAGE-MODE 

USE 

USING 

VALUE 

VALUES 

VARYING 



ANS 
COBOL 



CODAS YL 
COBOL 

only 



OS/VS 
COBOL 

X 
X 
X 
X 
X 

X 
X 
X 
X 



/f ■■'^, 
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ANS 


COBOL 


os/vs 


Reserved 


uord 


COBOL 


only 


COBOL 


UIHEN 




X 


_ 


X 


WHEN-COMPILED 


- 


- 


X 


WITH 




X 


- 


X 


WITHIN 




- 


X 


- 


WORDS 




X 


- 


X 


WORKING-: 


STORAGE 


X 


•~ 


X 


WRITE 




X 


- 


X 


WRITE-ONLY 


- 


- 


X 


ZERO 




X 


- 


X 


ZEROES 




X 


- 


X 


ZEROS 




X 


. 


X 


+ 




X 


- 


X 


- 




X 


- 


X 


n 




X 


- 


X 


/ 




X 


-" 


X 


HH 




X 


_ 


X 


< 




X 


- 


X 


> 




X 


- 


X 


= 




X 


- 


X 



o 



\) 
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APPENDIX G. EBCDIC AND ASCII COLLATING SEQUENCES 



J 



The ascending collating sequences for both the EBCDIC (Extended 
Binary Coded Decimal Interchange Code) and ASCII (American 
National Standard Code for Information Interchange) character 
sets are given in this appendix. Decimal positions Mithin the 
sequence Qr^ given^ as well as the binary representation^ 
symbol/ and meaning for each character. 



EBCDIC COLLATING SEQUENCE 



Collating 
Sequence 


Bit 
configuration 


Symbol 


Meaning 





00000000 




space 


. 








. 








. 








74 


01001010 


* 


Cent sign 


75 


01001011 


. 


Period, decimal point 


76 


01001100 


< 


Less than sign 


77 


01001101 


( 


Left parenthesis 


78 


01001110 


+ 


Plus sign 


79 


01001111 


I 


Vertical bar. Logical OR 


80 


01010000 


& 


Ampersand 


. 








. 








. 








90 


01011010 


1 


Exclamation point 


91 


01011011 


$ 


Dollar sign 


92 


01011100 


)H 


Asteri sk 


93 


01011101 


) 


Right parenthesis 


94 


01011110 


J 


Semi colon 


95 


01011111 


- 


Logical not 


96 


01100000 


- 


Mi nus» hyphen 


97 


01100001 


/ 


Slash 


. 








. 








• 









1> 
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collating 
Sequence 


Bit 
Configuration 


Symbol 


Meaning 


107 


01101011 


/ 


Comma 


108 


01101100 


% 


Percent sign 


109 


01101101 


M_ 


Underscore 


110 


01101110 


> 


Greater than sign 


111 


01101111 


? 


Question mark 










. 








. 








122 


01111010 


' 


Colon 


123 


01111011 


« 


Number sign 


124 


01111100 


a 


At sign 


125 


01111101 


1 


Apostrophe, prime 


126 


01111110 


= 


Equals sign 


127 


01111111 


fl 


Quotation marks 


. 








129 


10000001 


a 




130 


10000010 


b 




131 


10000011 


c 




132 


10000100 


d 




133 


10000101 


e 




134 


10000110 


f 




135 


10000111 


g 




136 


10001000 


h 




137 


10001001 


i 




. 








. 








. 








145 


10010001 


j 




146 


10010010 


k 




147 


10010011 


1 




148 


10010100 


m 




149 


10010101 


n 




150 


10010110 


o 




151 


10010111 


p 
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Collating 
sequence 


Bit 

Configuration 


symbol 


Meaning 


152 


10011000 


q 




153 


10011001 


r 




. 








. 








. 








162 


10100010 


s 




163 


10100011 


t 




164 


10100100 


u 




165 


10100101 


V 




166 


10100110 


M 




167 


10100111 


X 




168 


10101000 


y 




169 


10101001 


z 




. 








. 








. 








193 


11000001 


A 




194 


11000010 


B 




195 


11000011 







196 


11000100 


D 




197 


11000101 


E 




198 


11000110 


F 




199 


11000111 


G 




200 


11001000 


H 




201 


11001001 


I 




. 








• 








. 








209 


11010001 


J 




210 


11010010 


K 




211 


11010011 


L 




212 


11010100 


M 




213 


11010101 


N 




214 


11010110 
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collating 
sequence 


Bit 
Configuration 


Symbol 


Meaning 


215 


11010111 


p 




216 


11011000 


Q 




217 


11011001 


R 












^ 








. 








226 


11100010 


s 




227 


11100011 


T 




228 


11100100 


u 




229 


11100101 


V 




230 


11100110 


M 




231 


11100111 


X 




232 


11101000 


Y 




233 


11101001 


z 




. 








. 








. 








240 


11110000 







241 


11110001 


1 




242 


11110010 


2 




243 


11110011 


3 




244 


11110100 


4 




245 


11110101 


5 




246 


11110110 


6 




247 


11110111 


7 




248 


11111000 


8 




249 


11111001 


9 





m. y 
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ASCII COLLATING SEQUENCE 



Collating 
sequence 


Bit 
Configuration 


Symbol 


Meaning 





00000000 




Null 


32 


00100000 


SP 


Space 


33 


00100001 


1 


Logical OR 


34 


00100010 


n 


Quotation mark 


35 


00100011 


« 


Number sign 


36 


00100100 


$ 


Dollar sign 


37 


00100101 


X 


Percent 


38 


00100110 


I 


Ampersand 


39 


00100111 


f 


Apostrophe* prime 


40 


00101000 


( 


Opening parenthesis 


^^ 


00101001 


) 


Closing parenthesis 


42 


00101010 


K 


Asteri sk 


43 


00101011 


+ 


Plus 


44 


00101100 


/ 


Comma 


45 


00101101 


- 


Hyphen* minus 


46 


00101110 


. 


Period* decimal point 


47 


00101111 


/ 


Slash 


4S 


00110000 







49 


00110001 


1 




50 


00110010 


2 




51 


00110011 


3 




52 


00110100 


4 




53 


00110101 


5 




54 


00110110 


6 




55 


00110111 


7 




56 


00111000 


8 




57 


00111001 


9 




58 


00111010 


: 


Colon 


59 


00111011 


i 


Semicolon 


60 


00111100 


< 


Less than 


61 


00111101 


= 


Equals 


62 


00111110 


> 


Greater than 



„> 



( 






c 



450 IBM VS COBOL for OS/VS 



o 



o 



o 



collating 
sequence 


Bit 

Configuration 


Symbol 


Meaning 


63 


00111111 


7 


Question mark 


64 


01000000 


a 


Commercial At 


65 


01000001 


A 




66 


01000010 


B 




67 


01000011 


c 




68 


01000100 


D 




69 


01000101 


E 




70 


01000110 


F 




71 


01000111 


G 




72 


01001000 


H 




73 


01001001 


I 




74 


01001010 


J 




75 


01001011 


K 




76 


01001100 


L 




77 


01001101 


M 




78 


01001110 


N 




79 


01001111 







80 


oioioboo 


p 




81 


01010001 


Q 




82 


01010010 


R 




83 


01010011 


s 




84 


01010100 


T 




85 


01010101 


u 




86 


01010110 


V 




87 


01010111 


Ui 




88 


01011000 


X 




89 


01011001 


Y 




90 


01011010 


z 




91 


01011011 


c 


Opening bracket 


92 


01011100 


\ 


Reverse slant 


93 


01011101 


3 


Closing bracket 


94 


01011110 


. . 


Circumflex* Logical NOT 


95 


01011111 




Underscore 


96 


01100000 


N, 


Grave Accent 
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Collating 
Sequence 


Bit 
Configuration 


Symbol 


Meaning 


97 


01100001 


a 




98 


01100010 


b 




99 


01100011 


c 




100 


01100100 


d 




101 


01100101 


e 




102 


01100110 


f 




103 


01100111 


g 




10<i 


01101000 


h 




105 


01101001 


1 




106 


01101010 


D 




107 


01101011 


k 




108 


01101100 


1 




109 


01101101 


m 




110 


01101110 


n 




111 


01101111 


o 




112 


01110000 


P 




113 


01110001 


q 




114 


01110010 


r 




115 


01110011 


s 




116 


01110100 


t 




117 


01110101 


u 




118 


01110110 


V 




119 


01110111 


M 




120 


01111000 


X 




121 


01111001 


y 




122 


01111010 


z 




123 


01111011 


{ 


Opening Brace 


124 


01111100 


~ 


Vertical Line 


125 


01111101 


} 


Closing Brace 


126 


01111110 


~ 


Tilde 






C 



f> 
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APPENDIX H. COBOL STATEMENTS FLAGGED BY SPECIFYING MIGR 



The COBOL statements that sre flagged when you specify the MIGR 
compiler option^ grouped by subject, are^ 



LANGLVL(l) 






COMMUNICATIONS 



COPY language - 1968 

JUSTIFIEDlJUST clause with VALUE 

MOVE ALL literal to numeric item (not flagged with SYNTAX 
compile option) 

MOVE/COMPARE of scaled integer to AN/ANE (not flagged with 
SYNTAX compile option) 

NOT in a Combined Abbreviated Relation Condition 

PERFORM in independent segment referencing a segment of 
different priority. (This is only significant if an ALTER 
is in effect in the PERFORMed segment.) 

PERFORM of independent segment 

RESERVE integer AREAS 

SELECT OPTIONAL clause ~ 1968 Standard interpretation 

SPECIAL-NAMES paragraph*, use of L, /, and = 

UNSTRING with DELIMITED BY ALL 



COMMUNICATION SECTION 

ACCEPT MESSAGE 

SEND, RECEIVE, ENABLE, and DISABLE verbs. (Note that 
RECEIVE ...MESSAGE is LANGLVL sensitive, but is only flagged 
under Communications.) 



REPORT URITER 



ISAM 



INITIATE, GENERATE, and TERMINATE verbs 

LINE-COUNTER, PAGE-COUNTER, and PRINT-SWITCH special 
regi sters 

Nonnumeric literal IS mnemonic— name 

REPORT clause of FD 

REPORT SECTION 

USE BEFORE REPORTING declarative 



• APPLY REORG-CRITERIA (ISAM) 

• APPLY CORE-INDEX (ISAM) 

• I/O verbs — all that reference ISAM files 
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ISAM file declarations 

NONIMAL KEY clause 

Organization parameter "I" 

TRACK-AREA clause 

USING KEY clause on START statement 






> 
^ 



USE FOR DEBUGGING 



USE FOR DEBUGGING ON CALL REFERENCES 0F3 identifiers, 
file— names/ cd— names 



EDAM 



OTHER STATEMENTS 



ACTUAL KEY clause 

APPLY RECORD-OVERFLOW (BDAM) 

EDAM file declarations 

I/O verbs — all that reference BDAM files 

Organization parameters "D", "R", and "W" 

SEEK statement 

TRACK-LIMIT clause 

Assignment-name organization parameter "C" indicating ASCII 

APPLY WRITE-ONLY 

APPLY RECORD-OVERFLOW 

ASSIGN integer system— name 

ASSIGN ... OR 

CLOSE ... WITH POSITIONING/DISP 

CURRENT-DATE and TIME-OF-DAY special registers 

Debug packets 

EJECT 

EXAMINE 

EXHIBIT, READY TRACE, and RESET TRACE 

FILE-LIMITS 

FOR MULTIPLE REEL/UNIT phrase on ASSIGN clause 

LABEL RECORD ... TOTALING/TOTALED AREA 

LABEL RECORD clause on SD 

Nested OCCURS DEPENDING ON clauses (ODOs) 

Nonsubordinate item follouiing ODO 

NOTE statement 

OCCURS ... DEPENDING ON subordinate to any OCCURS clause 






\j 
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ARITHMETIC ITEMS 



ON statement 

OPEN ... LEAVE/REREAD/DISP 

OTHERWISE synonym for ELSE on IF statement 

PROCESSING MODE 

REMARKS paragraph 

RESERVE NO/ALTERNATE AREAS 

SEARCH ... WHEN condition using KEY items as object, not 
subject 

SERVICE RELOAD statement 

SORT-MODE-SIZE, SORT-CORE-SIZE, SORT-MESSAGE, and 
SORT-FILE-SIZE special registers 

TALLY special register 

THEN as a statement connector 

TRANSFORM statement 

USE BEFORE STANDARD LABEL 

USE AFTER STANDARD ERROR ... GIVING 

USING procedure— name or file— name on CALL statement 

WRITE AFTER POSITIONING 

References to UPSI and UPSI mnemonic name 

References to unsupported compilation options on a CBL card 

WHEN-COMPILED special register 



Definitions of floating point data items 
Usage of floating point literals 
Usage of exponentiation 
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GLOSSARY 



The terms in this glossary are defined 
in accordance with their meaning in 
COBOL. These terms may or may not have 
the same meaning in other languages. 

IBM is grateful to the American National 
Standards Institute (ANSI) for 
permission to reprint its definitions 
from the following publications: 

• American National Standard 
Programming Language COBOL > ANSI 
X3. 23-1974 (Copyright 1974 by 
American National Standards 
Institute* Inc.), which was prepared 
by Technical Committee X3J4, which 
had the task of revising American 
National Standard COBOL, X3. 23-1968. 

♦ American National Standard 
Vocabulary for Information 
Processing, ANSI X3. 12-1970 
(Copyright 1970 by American 
Standards Institute, Inc.), 
was prepared by the subcomm 
Terminology and Glossary, X3.5. 

American National Standard definitions 
are preceded by an asterisk (X). 

X Abbreviated Combined Relation 
condition. The combined condition that 
results from the explicit omission of a 
common subject or a common subject and 
common relational operator in a 
consecutive sequence of relation 
condi ti ons. 

X Access Node. The manner in which 
records are to be operated upon within a 
file. 

M Actual Decimal Point. The physical 
representation, using either of the 
decimal point characters period (.) or 
comma (,), of the decimal point position 
in a data i tern. 

M Alphabet-Name. A user-defined word, 
in the SPECIAL-NAMES paragraph of the 
Environment Division, that assigns a 
name to a specific character set and/or 
collating sequence. 

Jf Alphabetic Character. A character 
that belongs to the following set of 
letters*. A, B, C, D, E, F, 6, H, I, J, 
K, L, M, N, 0, P, Q, R, S, T, U, V, W, 
X, Y, Z, and the space. 

« Alphanumeric character. Any character 
in the computer's character set. 

Alphanumeric Edited Character. A 

character within an alphanumeric 
character string which contains at least 
one B or 0. 



Alternate Record Key. A key, other than 
the prime record key, whose contents 
identify a record within an indexed 
file. 

Arithmetic Expression. An identifier or 
a numeric elementary item, a numeric 
literal, such identifiers and literals 
separated by arithmetic operators, two 
arithmetic expressions separated by an 
arithmetic operator, or an arithmetic 
expression enclosed in parentheses. 

Arithmetic operator. A single 
character, or a fixed two-character 
combination, that belongs to the 
following set J 





Character 


Meaning 




+ 


Addi tion 




- 


Subtraction 


National 


X 


Multiplication 


which 


/ 


Division 


ttee on 


XX 


Exponentiation 



X Ascending Key. A key upon the values 
of which data is ordered starting with 
the lowest value of key up to the 
highest value of key in accordance with 
the rules for comparing data items. 

ASCII. American National Standard Code 
for Information Interchange, which 
allows tape file processing in 
accordance with the following standards* 

• American National Standard Code for 
Information Interchange, X3. 4-1968 

• American National Standard Magnetic 
Tape Labels for Information 
Interchange, X3. 27-1969 

• American National Standard Recorded 
Magnetic Tape for Information 
Interchange (800 CPI, NRZI), 

X3. 22-1967 

Assignment -name. A name that identifies 
the organization of a COBOL file and the 
name by which it is known to the system. 

X Assumed Decimal Point. A decimal 
point position which does not involve 
the existence of an actual character in 
a data item. The assumed decimal point 
has logical meaning but no physical 
representation. 

X AT END Condition. A condition caused: 

1. During the execution of a READ 
statement for a sequentially 
accessed file. 

2. During the execution of a RETURN 
statement, when no next logical 






nI j/ 
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%/ 



record exists for the associated 
sort or merge file. 

3. During the execution of a SEARCH 

statements when the search operation 
terminates without satisfying the 
condition specified in any of the 
associated UiHEN phrases. 

Binary item. A numeric data item 
represented internally in binary 
notation (on the base 2). Binary items 
have a decimal equivalent consisting of 
the decimal digits through 9, plus a 
sign. The leftmost bit of the item is 
the operational sign. 

* Binary Search. A dichotomizing search 
in which the number of items of the set 
is divided into two equal parts at each 
step of the process. Appropriate 
adjustments are usually made for 
dividing an odd number of items. 

X Block. A physical unit of data that 
is normally composed of one or more 
logical records. For mass storage files* 
a block may contain a portion of a 
logical record. The size of a block has 
no direct relationship to the size of 
the file within which the block is 
contained or to the size of the logical 
record(s) that are either continued 
within the block or that overlap the 
block. The term is synonymous with 
physical record. 

Body Grou0. The name for report group 
description entries of TYPE DETAIL* 
CONTROL HEADING, or CONTROL FOOTING. 

Buffer. A portion of virtual storage 
into which data is read or from which it 
is written. 

Byte. A sequence of eight adjacent 
binary bits. Uhen properly aligned, two 
bytes form a halfword, four bytes a 
fullword, and eight bytes a doubleword. 

X Called Program. A program which is 
the object of a CALL statement combined 
at object time with the calling program 
to produce a run unit. 

X Calling Program. A program which 
executes a CALL to another program. 

X Cd-name. A user-defined word that 
names an MCS interface area described in 
a communication description entry within 
the Communication Section of the Data 
Di vi si on . 

Channel. The means by which vertical 
positioning of a printer can be 
indicated by means of a punched tape. 



X Character. The basic 
of the language. 



indivisible unit 



Character Position. The amount of 
physical storage required to store a 
single standard data format character 



described as usage is DISPLAY. Further 
characteristics of the physical storage 
are defined by IBM. 

X Character-String. A sequence of 
contiguous characters which form a COBOL 
word, a literal, a PICTURE 
charactei — string, or a comment-entry. 

Checkpoint. A reference point in a 
program at which information about the 
contents of main storage can be recorded 
so that, if necessary, the program can 
be restarted at an intermediate point. 

K Class Condition. The proposition, for 
which a truth value can be determined, 
that the content of an item is wholly 
alphabetic or is wholly numeric. 

Clause. An ordered set of consecutive 
COBOL charactei — strings whose purpose is 
to specify an attribute of an entry. 

K COBOL Character Set. The complete 
COBOL character set consists of the 51 
characters listed below: 



laracter 


Meaning 


0,1. ..,9 


Digit 


A,B,...,Z 


Letter 




Space (blank) 


+ 


Plus sign 


- 


Minus sign (hyphen) 


X 


Asteri sk 


/ 


Stroke (virgule, slash) 


= 


Equal sign 


$ 


Currency sign 


, 


Comma (decimal point) 


} 


Semicolon 


, 


Period (decimal point) 


n 


Quotation mark 


( 


Left parenthesis 


) 


Right parenthesis 


> 


Greater than symbol 


< 


Less than symbol 



X COBOL Library Management Facility. A 
COBOL feature that allows installations 
running with multiple COBOL 
regions/partitions to save considerable 
main storage by sharing some or all of 
the COBOL library subroutine modules. 

* COBOL Mord. (See Uord.) 

X Collating Sequence. The sequence in 
which the characters that are acceptable 
in a computer are ordered for purposes 
of sorting, merging, and comparing. 

X Column. A character position within a 
print line. The columns are numbered 
from 1, by 1, starting at the leftmost 
character position of the print line and 
extending to the rightmost position of 
the print line. 

X Combined Condition. A condition that 
is the result of connecting two or more 
conditions with the 'AND' or the 'OR' 
logical operator. 
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X Comment-Entry. An entry in the 
Identification Division that may be any 
combination of characters from the 
computer character set. 



x Comment Line. A sou 
represented by an aste 
indicator area of the 
characters from the co 
set in area A and area 
The comment line serve 
documentation in a pro 
form of comment line r 
stroke (/) in the indi 
line and any character 
computer's character s 
area B of that line ca 
prior to printing the 



roe program line 
risk in the 
line and any 
mputer's character 

B of that line, 
s only for 
gram. A special 
epresented by a 
cator area of the 
s from the 
et in area A and 
uses page ejection 
comment . 



X Communication Description Entry. An 
entry in the Communication Section of 
the Data Division that is composed of 
the level indicator CD* followed by a 
cd-name* and then followed by a set of 
clauses as required. It describes the 
interface between the Message Control 
System (MCS) and the COBOL program. 

X Communication Device. A mechanism 
(hardware or hardware/software) capable 
of sending data to a queue and/or 
receiving data from a queue. This 
mechanism may be a computer or a 
peripheral device. One or more programs 
containing communication description 
entries and residing within the same 
computer define one or more of these 
mechani sms. 

« Communication Section. The section of 



interface areas between the MCS and 
program* composed of one or more CD 
description entries. 



the 



X Compile Time. The time at which a 
COBOL source program i s translated* by a 
COBOL compiler* to a COBOL object 
program. 

Compiler. A program which translates a 
program written in a higher level 
language into a machine language object 
program. 

a Compiler Directing statement. A 

statement* beginning with a compiler 
directing verb* that causes the compiler 
to take a specific action during 
compi lat i on . 

X Complex Condition. A condition in 
which one or more logical operators act 
upon one or more conditions. (See 
Negated Simple Condition* Combined 
Condition* Negated Combined Condition.) 

« Computer-Name. A system-name that 
identifies the computer upon which the 
program is to be compiled or run. 

X Condition. A status of a program at 
execution time for which a truth value 
can be determined. Where the term 
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X Condition-Name. A user-defined word 
assigned to a specific valuer set of 
values* or range of values* within the 
complete set of values that a 
conditional variable may possess; or the 
usei — defined word assigned to a status 
of an implementer-def ined switch or 
device. 

X Condition-Name Condition. The 

proposition* for which a truth value can 
be determined* that the value of a 
conditional variable is a member of the 
set of values attributed to a 
condition-name associated with the 
conditional variable. 

X Conditional Expression. A simple 
condition or a complex condition 
specified in an IF, PERFORM* or SEARCH 
statement. (See Simple Condition and 
Complex Condition.) 

Conditional statement. A statement 
which specifies that the truth value of 
a condition is to be determined and that 
the subsequent action of the object 
program is dependent on this truth 
value. 

X Conditional variable. A data item one 
or more values of which has a 
condition-name assigned to it. 

« Configuration Section. A section of 
the Environment Division that describes 
overall specifications of source and 
object computers. 



X Connective, 
used to*' 



A reserved word that is 



3. 



Associate a data-name* 
paragraph-name* condition-name, or 
text-name with its qualifier. 

Link two or more operands written in 
a series. 

Form conditions (logical 
connectives). (See Logical 
Operator. ) 



CONSOLE. A COBOL mnemonic-name 
associated with the console typewriter. 

contiguous items. Items that are 
described by consecutive entries in the 
Data Division* and that have a definite 
hierarchic relationship to each other. 
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Control Break. A change in the value of 
an item that is referred to in the 
CONTROL clause. More generally^ a change 
in the value of a data item that is used 
to control the hierarchic structure of a 
report . 

Control Break Level. The relative 
position within a report writer control 
hierarchy at which the largest major 
control break occurred. 

Control Data Item. An item; a change in 
whose contents may produce a control 
break. 

Control Data-Name. A data-name in a 
CONTROL clause that refers to a control 
data item. 

Control Footing. A report group 
presented at the end of the control 
group of which it is a member. 

control Group. A set of body groups 
that is presented for a given value of a 
control item or of FINAL. Each control 
group may begin with a CONTROL HEADING, 
end with a CONTROL FOOTING, and may 
contain DETAIL report groups. 

Control Heading. A report group 
presented at the beginning of the 
control group of which it is a member. 

Control Hierarchy. A designated 
sequence of report subdivisions defined 
by the positional order of operands 
within a CONTROL clause. 

X Counter. A data item used for storing 
numbers or number representations in a 
manner that permits these numbers to be 
'ncreased or decreased by the value of 
another number, or to be changed or 
reset to zero or to an arbitrary 
positive or negative value. 



* Currency Sign. The character 
the COBOL character set. 



of 



* Currency Symbol. The character 
defined by the CURRENCY SIGN clause in 
the SPECIAL-NAMES paragraph. If no 
CURRENCY SIGN clause is present in a 
COBOL source program, the currency 
symbol is identical to the currency 
si gn. 

X Current Record. The record which is 
available in the record area associated 
wi th the f i le. 

X Current Record Pointer. A conceptual 
entity that is used in the selection of 
the next record. 

X Data Clause. A clause that appears in 
a data description entry in the Data 
Division and provides information 
describing a particular attribute of a 
data item. 



Data Description Entry. An entry in the 
Data Division that is composed of a 
level-number followed by a data-name, if 
required, and then followed by a set of 
data clauses, as required. 
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X Data Item. A character or set of 

contiguous characters (excluding in 

either case literals) defined as a unit 
of data by the COBOL program. 

X Data-Name. A user-defined word that 
names a data item described in a data 
description entry in the Data Division. 
Ulhen used in the general formats, 
'data-name* represents a word which can 
neither be subscripted, indexed, nor 
qualified unless specifically permitted 
by the rules for that format. 



Debugging Line. Any line with *D' 
the indicator area of the line. 



in 



Debugging section. A section that 

contains a USE FOR DEBUGGING statement 
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X Declarative-Sentence. A 
compilei — directing sentence consisting 
of a single USE statement terminated by 
the separator period. 

X Delimiter. A character or a sequence 
of contiguous characters that identify 
the end of a string of characters and 
separates that string of characters from 
the following string of characters. A 
delimiter is not part of the string of 
characters that it delimits. 

X Descending Key. A key upon the values 
of which data is ordered starting with 
the highest value of key down to the 
lowest value of key, in accordance with 
the rules for comparing data items. 

X Destination. The symbolic 
identification of the receiver of a 
transmission from a queue. 
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Destination Queue. In communication^ an 
MCS storage queue for one or more 
messages from one or more remote 
stations or to one or more stations. 
Destination queues serve as buffers 
between a COBOL communication program 
and the remote stations. 

Digit. Any of the numerals from 
through 9. In COBOL, the term is not 
used in reference to any other symbol. 

Digit Position. The amount of physical 
storage required to store a single 
digit. This amount may vary depending on 
the usage of the data item describing 
the digit position. Further 
characteristics of the physical storage 
are defined by IBM. 

Direct Access Storage. A storage medium 
on which data may be organized and 
maintained in both a sequential and 
nonsequential manner. 

Direct Access storage File. A 

collection of records that is assigned 
to a direct access storage medium. 

M Division. A set of zeros, one or more 
sections or paragraphs, called the 
division body, that are formed and 
combined in accordance with a specific 
set of rules. There are four (4) 
divisions in a COBOL program^ 
Identification, Environment, Data, and 
Procedure. 

* Division Header. A combination of 
words followed by a period and a space 
that indicates that beginning of a 
division. The division headers are^ 

IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION 

[USING data-name-1 Cdata-name-23 . . . 3 . 

X Dynamic Access. An access mode in 
which specific logical records can be 
obtained from or placed into a mass 
storage file in a nonsequential manner 
(see Random Access) and obtained from a 
file in a sequential manner (see 
Sequential Access), during the scope of 
the same OPEN statement. 

EBCDIC Character. Any one of the 
symbols included in the eight-bit 
Extended Binary-Coded-Decimal 
Interchange Code (EBCDIC) set. All 51 
COBOL characters are included. 

» Editing Character. A single character 
or a fixed two-character combination 
belonging to the following setJ 



Character rfeaning 

B Space 

Zero 

+ Plus 

Minus 
CR Credit 

DB Debit 

Z Zero suppress 

^ Check protect 

$ Currency sign 

, Comma (decimal point) 

Period (decimal point) 
/ Stroke (virgule, slash) 

X Elementary Item. A data item that is 
described as not being further logically 
subdi vi ded. 



EMI (End of Message Indicator). 

"End of Message Indicator." 



See 



End of Group Indicator (EGI). In COBOL 
Communication programs, an indicator 
added at the end of a message group to 
show that the group of messages i s 
complete. 

End of Message Indicator (END. In 

COBOL Communication programs, an 
indicator added at the end of a message 
to show that the message is complete. 

» End of Procedure Division. The 

physical position in a COBOL source 
program after which no further 
procedures appear. 

End of Segment Indicator (ESI). In 

COBOL Communication programs, an 
indicator added at the end of a message 
segment to show that the message segment 
is complete. 

X Entry. Any descriptive set of 
consecutive clauses terminated by a 
period and written in the Identification 
Division, Environment Division, or Data 
Division of a COBOL source program. 

Entry-name. A programmer-specified name 
that establishes an entry point in a 
COBOL subprogram. 

Entry Sequenced Data Set (ESDS). A VSAM 
data set in which the logical sequence 
of the records is determined by the 
order in which they are presented for 
creation. In COBOL, an ESDS uses 
sequential organization. 



* Environment Clause. 
appears as part of an 
Division entry. 



A clause that 
Envi ronment 



Environment Division. One of the four 
main component parts of a COBOL program. 
The Environment Division describes the 
computers upon which the source program 
is compiled and those on which the 
object program is executed, and provides 
a linkage between the logical concept of 
files and their records, and the 
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physical aspects of the devices on which 
files are stored. 

ESDS (Entry Sequenced Data Set). See 

"Entry Sequenced Data Set." 

ESI (End of Segment Indicator). See 

"End of Segment Indicator." 

Execution Time. See "Object Time." 

Exponent. A number, indicating how many 
times another number (the base) is to be 
repeated as a factor. Positive 
exponents denote multipli cat i on> 
negative exponents denote division, 
fractional exponents denote a root of a 
quantity. In COBOL, and exponentiation 
is indicated with the symbol ^x followed 
by the exponent. 

X Extend Mode. The state of a file 
after execution of an OPEN statement, 
with the EXTEND phrase specified for 
that file, and before the execution of a 
CLOSE statement for that file. 
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» Figurative Constant. A compiler 
generated value referenced through the 
use of certain reserved words. 

« File. A collection of records. 

X File Clause. A clause that appears as 
part of the following Data Division 
entri es* 

• File description (FD) 

• Sort-merge file description (SD) 

• Communication description (CD) 

FILE-CONTROL. The name of an 
Environment Division paragraph in which 
the data files for a given source 
program are declared. 

« File Description Entry. A entry in 
the File Section of the Data Division 
that is composed of the level indicator 
FD, followed by a file-name, and then 
followed by a set of file clauses as 
requi red. 

X File-Name. A user-defined word that 
names a file described in a file 
description entry or a sort-merge file 
description entry within the File 
Section of the Data Division. 



File Organization. The permanent 
logical file structure established at 
the time that a file is created. 

3t FILE SECTION. The section of the Data 
Division that contains file description 
entries and sort-merge file description 
entries together with their associated 
record descriptions. 



« Format. A 
set of data. 



specific arrangement of a 



Function-name. A name, specified by 
IBM, that identifies system logical 
units, printer and card punch control 
characters, report codes, and/or program 
switches. When a function-name is 
associated with a mnemonic-name in the 
Environment Division, the mnemonic-name 
may then be substituted in any format in 
which such substitution is valid. 

X Group Item. A named contiguous set of 
elementary or group items. 

Header Label. A record that identifies 
the beginning of a physical file or a 
volume. 

* High order End. The leftmost 
character of a string of characters. 

« I-0-CONTROL. The name of an 
Environment Division paragraph in which 
object program requirements for specific 
input-output techniques, rerun points, 
sharing of same areas by several data 
files, and multiple file storage on a 
single input-output device are 
speci f ied. 

» I-O-Mode. The state of a file after 
execution of an OPEN statement, with the 
I-O phrase specified, for that file and 
before the execution of a CLOSE 
statement for that file. 

IDENTIFICATION DIVISION. One of the 
four main component parts of a COBOL 
program. The Identification Division 
identifies the source program and the 
object program and, in addition, may 
include such documentation as the 
author's name, the installation where 
written, date written, etc. 

X Identifier. A data-name, followed as 
required, by the syntactically correct 
combination of qualifiers, subscripts, 
and indexes necessary to make unique 
reference to a data item. 

X Imperative Statement. A statement 
that begins with an imperative verb and 
specifies an unconditional action to be 
taken. An imperative statement may 
consist of a sequence of imperative 
statements. 

X Index. A computer storage position or 
register, the contents of which 
represent the identification of a 
particular element in a table. 
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Index Data Item. A data item in which 
the value associated with an index-name 
can be stored. 

X Index-Name. A user-defined word that 
names an index associated with a 
specific table. 

« Indexed Data-Name. An identifier that 
is composed of a data-name» followed by 
one or more index-names enclosed in 
parentheses. 



X Indexed File, 
organizati on . 



A file with indexed 



X Indexed Organization. The permanent 
logical file structure in which each 
record is identified by the value of one 
or more keys within that record. 

X Input File. A file that is opened in 
the input mode. 

X Input Mode. The state of a file after 
execution of an OPEN statements with the 
INPUT phrase specified* for that file 
and before the execution of a CLOSE 
statement for that file. 

M Input-Output File. A file that is 
opened in the I-O mode. 

X INPUT-OUTPUT SECTION. The section of 
the Environment Division that names the 
files and the external media required by 
an object program and which provides 
information required for transmission 
and handling of data during execution of 
the object program. 

X INPUT PROCEDURE. A set of statements 
that is executed each time a record is 
released to the sort file. 

Input Queue. In communication* an MCS 
destination queue from which the COBOL 
communication program accepts messages 
from the remote stations. 

X Integer. A numeric literal or a 
numeric data item that does not include 
any character positions to the right of 
the assumed decimal point. Where the 
term 'integer' appears in general 
formats* integer must not be a numeric 
data item* and must not be signed* nor 
zero unless explicitly allowed by the 
rules of that format. 

Internal Decimal Item. A numeric data 
item represented internally in decimal 
notation. Such an item may contain any 
of the decimal digits from through 9* 
plus a sign. The item is stored as two 
digits per byte; the sign is carried in 
the four rightmost bits of the rightmost 
byte. Also known as packed decimal. 

X INVALID KEY Condition. A condition* 
at object time* caused when a specific 
value of the key associated with an 
indexed or relative file is determined 
to be invalid. 



X Key. A data item which identifies the 
location of a record* or a set of data 
items which serve to identify the 
ordering of data. 

X Key of Reference. The key* either 
prime or alternate* currently being used 
to access records within an indexed 
file. 

X Key Sequenced Data set (KSDS). A VSAM 

data set in which the logical sequence 
of the records is determined by the 
ascending order of an embedded prime 
record key. Alternate record keys may 
also be specified. Access to the data 
set is through the indexes of prime 
record keys and/or alternate record 
keys. In COBOL* a KSDS uses indexed 
organization. 

X Key Uord. A reserved word whose 
presence is required when the format in 
which the word appears is used in a 
source program. 

KSDS (Key Sequenced Data Set). See "Key 
Sequenced Data Set." 

X Language-Name. A system-name that 
specifies a particular programming 
language. 

X Level indicator. Two alphabetic 
characters that identify a specific type 
of file or a position in a hierarchy. 

X Level-Number. A user-defined word 
which indicates the position of a data 
item in the hierarchical structure of a 
logical record or which indicates 
special properties of a data description 
entry. A level-number is expressed as a 
one or two digit number. Level-numbers 
in the range from 1 through ^9 indicate 
the position of a data item in the 
hierarchical structure of a logical 
record. Level-numbers in the range from 
1 through 9 may be written either as a 
single digit or as a followed by a 
significant digit. Level numbers 66* 77* 
and 88 identify special properties of a 
data description entry. 

X Library-Name. A user-defined word 
that names a COBOL library that is to be 
used by the compiler for a given source 
program compilation. 

X Library Text. A sequence of 
character-strings and/or separators in a 
COBOL library. 

X Line. (See Report Line.) 

X Line Number. An integer that denotes 
the vertical position of a report line 
on a page. 

X LINKAGE SECTION. The section in the 
Data Division of the called program that 
describes data items available from the 
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calling program. These data items may be 
referred to by both the calling and 
called program, 

« Literal. A charactei — string uhose 
value is implied by the ordered set of 
characters comprising the string. 

X Logical Operator. One of the reserved 
words AND, OR, or NOT. In the formation 
of a condition, both or either of AND 
and OR can be used as logical 
connectives. NOT can be used for logical 
negati on. 

Logical Page. A vertical division of 
output data representing a logical 
separation of such data. A logical page 
may or may not coincide with a physical 
page. (See Page. ) 

X Logical Record. The most inclusive 
data item. The level-number for a record 
is 01. (See Report Writer Logical 
Record. ) 

X Low Order End. The rightmost 
character of a string of characters. 

Main Program. The highest level COBOL 
program involved in a step. (Programs 
written in other languages that follow 
COBOL linkage conventions are considered 
COBOL programs in this sense.) 
Separation is based on internal logical 
requirements and/or external 
characteristics of the output medium. 

Mass Storage. (See Direct Access 
Storage. ) 

Mass Storage File. (See Direct Access 
Storage f i les. ) 

MCP. (See Message Control Program.) 

» MCS. (See Message Control System.) 

X Merge File. A collection of records 
to be merged by a MERGE statement. The 
merge file is created and can be used 
only by the merge function. 

< Message. Data associated with an end 
of message indicator or an end of group 
indicator. (See Message Indicators.) 

Message Control Program (MCP). A 
usei — written communication control 
program that supports the processing of 
messages. 

^ Message Control System CMOS). A 

communication control system that 
supports the processing of messages. 

« Message Count. The count of the 
number of complete messages that exist 
in the designated queue of messages. 

X Message Indicators. EGI (end of group 
indicator), EMI (end of message 
indicator), and ESI (end of segment 
indicator) are conceptual indications 



that serve to notify the MCS that a 
specific condition exists (end of group, 
end of message, end of segment). 

Within the hierarchy of EGI, EMI, and 
ESI, an EGI is conceptually equivalent 
to an ESI, EMI, and EGI. An EMI is 
conceptually equivalent to an ESI and 
EMI. Thus, a segment may be terminated 
by an ESI, EMI, or EGI. A message may be 
terminated by an EMI or EGI. 

X Message Segment. Data that forms a 
logical subdivision of a message 
normally associated with an end of 
segment indicator. (See Message 
Indi cators. ) 

Mnemonic-Name. A user-defined word that 
is associated in the Environment 
Division with a specified function-name. 

Name. A word composed of not more than 
30 characters, which defines a COBOL 
operand. 

Native Character Set. The default 
character set associated with the 
computer specified in the 
OBJECT-COMPUTER paragraph. 

Native Collating Sequence. The default 
collating sequence associated with the 
computer specified in the 
OBJECT-COMPUTER paragraph. 

* Negated Combined Condition. The 'NOT' 
logical operator immediately followed by 
a parenthesized combined condition. 

» Negated Simple Condition. The 'NOT' 
logical operator immediately followed by 
a simple condition. 

X Next Executable Sentence. The next 
sentence to which control will be 
transferred after execution of the 
current statement is complete. 

X Next Executable Statement. The next 
statement to which control will be 
transferred after execution of the 
current statement is complete. 

« Next Record. The record which 
logically follows the current record of 
a file. 

X Noncontiguous Items. Elementary data 
items, in the Working-Storage and 
Linkage Sections, which have no 
hierarchic relationship to other data 
i tems. 

X Nonnumeric Item. A data item whose 
description permits its contents to be 
composed of any combination of 
characters taken from the computer's 
character set. Certain categories of 
nonnumeric items may be formed from more 
restricted character sets. 

* Nonnumeric Literal. A 

charactei — string bounded by quotation 
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marks. The string of characters may 
include arty character in the computer's 
character set. To represent a single 
quotation mark character within a 
nonnumeric literal, two contiguous 
quotation marks must be used. 

NonSMltched Line. In communication, a 
line that is a continuous link between a 
remote station and the computer. It may 
connect the central computer with either 
a single station or more than one 
stati on. 

X Numeric character. A character that 
belongs to the following set of digits^ 
0, 1, 2> 3, 4, 5, 6, 7, 8, and 9. 



Numeric Edited Item. A 

which is in such a form 
used in printed output, 
of external decimal digits 
the decimal point, commas, 
sign, editing sign control 
other editing symbols. 



numeric item 
that it may be 
It may consist 
through 9, 
the dollar 
symbols, plus 



^ Numeric Item. A data item whose 
description restricts its contents to a 
value represented by characters chosen 



from the digits '0' through '9 



if 



signed, the item may also contain a 
'-', or other representation of an 
operational sign. 



» + » 



X Numeric Literal. A literal composed 
of one or more numeric characters that 
also may contain either a decimal point, 
or an algebraic sign, or both. The 
decimal point must not be the rightmost 
character. The algebraic sign, if 
present, must be the leftmost character. 

» OBJECT-COMPUTER. The name of an 
Environment Division paragraph in which 
the computer environment, within which 
the object program is executed, is 
descr i bed. 

X Object of Entry. A set of operands 
and reserved words, within a Data 
Division entry, that immediately follows 
the subject of the entry. 
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A set or group of 
language instructions 
designed to interact 
e problem solutions. 
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X Object Time. The time at which ax\ 
object program is executed. 

« Open Mode. The state of a file after 
execution of an OPEN statement for that 
file &rt6 before the execution of a CLOSE 
statement for that file. The particular 



open mode is specified in the OPEN 
statement as either INPUT, OUTPUT, I-O, 
or EXTEND. 

X Operand. Uhereas the general 
definition of operand is 'that component 
which is operated upon', for the 
purposes of this publication, any 
lowercase word (or words) that appears 
in a statement or entry format may be 
considered to be an operand and, as 
such, is an implied reference to the 
data indicated by the operand. 

X Operational Sign. An algebraic sign, 
associated with a numeric data item or a 
numeric literal, to indicate whether its 
value is positive or negative. 

« Optional Uord. A reserved word that 
is included in a specific format only to 
improve the readability of the language 
and whose presence is optional to the 
user when the format in which the word 
appears is used in a source program. 

X Output File. A file that is opened in 
either the output mode or extend mode. 

X output Mode. The state of a file 
after execution of an OPEN statement, 
with the OUTPUT or EXTEND phrase 
specified for that file and before the 
execution of a CLOSE statement for that 
file. 

X OUTPUT PROCEDURE. A set of statements 
to which control is given during 
execution of a SORT statement after the 
sort function is completed, or during 
execution of a MERGE statement after the 
merge function has selected the next 
record in merged order. 

Output Queue. In communication, an MCP 
destination queue into which a COBOL 
communication program places messages 
for one or more remote stations. 

Overflow condition. A condition that 
occurs when a portion of the result of 
an operation exceeds the capacity of the 
intended unit of storage. 

Overlay. The technique of repeatedly 
using the same areas of internal storage 
during different stages in processing a 
problem. 



Packed Decimal Item. 

Decimal Item. ) 



(See Internal 



Page. A vertical division of output 
data representing a physical separation 
of such data, the separation being based 
on internal logical requirements and/or 
external characteristics of the output 
medi um. 

« Page Body. That part of the logical 
page in which lines can be written 
and/or spaced. 
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Page Footing. A report group that is 
presented at the end of a report page as 
determined by Report Writer logic. 

Page Heading. A report group that is 
presented at the beginning of a report 
page and determined by Report Writer 
logi c. 

X Paragraph. In the Procedure Division* 
a paragraph-name follouied by a period 
and a space and by zero, one, or more 
sentences. In the Identification and 
Environment Divisions, a paragraph 
header followed by zero, one, or more 
entri es. 

* Paragraph Header. A reserved word, 
followed by a period and a space that 
indicates the beginning of a paragraph 
in the Identification and Environment 
Divisions. The permissible paragraph 
headers are^ 

In the Identification Division'* 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

In the Environment Division^ 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

I-0-CONTROL. 

X Paragraph-Name. A user-defined word 
that identifies and begins a paragraph 
in the Procedure Division. 

Parameter. A variable that is given a 
specific value for a specific purpose or 
process. In COBOL, parameters are most 
often used to pass data values between 
calling and called programs. 

Password. A unique string of characters 
that a program, computer operator, or 
user must supply to meet security 
requirements before gaining access to 
data . 

X Phrase. A phrase is an ordered set of 
one or more consecutive COBOL 
charactei — strings that form a portion of 
a COBOL procedural statement or of a 
COBOL clause. 

* Physical Record. (See Block.) 

X Prime Record Key. A key whose 
contents uniquely identify a record 
within an indexed file. 

Printable Group. A report group that 
contains one or more print lines. 

Printable Item. A data item, the extent 
and contents of which are specified by 



an elementary report group description 
entry; this entry contains a COLUMN 
NUMBER clause, a PICTURE clause, and a 
SOURCE, SUM, or VALUE clause. 

Priority-number. A number, ranging in 
value from to 99, which classifies 
source program sections in the Procedure 
Di vi si on . 

Jf Procedure. A paragraph or group of 
logically successive paragraphs, or a 
section or group of logically successive 
sections, within the Procedure Division. 

PROCEDURE DIVISION. One of the four 
main component parts of a COBOL program. 
The Procedure Division contains 
instructions for solving a problem. The 
Procedure Division may contain 
imperat i ve-statements, condi ti onal 
statements, compiler directing 
statements, paragraphs, procedures, and 
sect i ons. 

X Procedure-Name. A user-defined word 
which is used to name a paragraph or 
section in the Procedure Division. It 
consists of a paragraph-name (which may 
be qualified), or a section-name. 

Process. Any operation or combination 
of operations on data. 

K Program-Name. A user-defined word 
that identifies a COBOL source program. 

X Pseudo-Text. A sequence of 
charactei — strings and/or separators 
bounded by, but not including, 
pseudo-text delimiters. 

* Pseudo-Text Delimiter. Two contiguous 
equal sign (=) characters used to 
delimit pseudo-text delimiters. 

» Punctuation Character. A character 
that belongs to the following set? 



Character 



Meaning 

Comma 
Semi colon 
Peri od 

Quotation mark 
Left parenthesis 
Right parenthesis 
Space 
Equal sign 



X Qualified Data-Name. An identifier 
that is composed of a data-name followed 
by one or more sets of either of the 
connectives OF and IN followed by a 
data-name qualifier. 

X Qualifier. 

1. A data-name which is used in a 

reference together with another data 
name at a lower level in the same 
hi erarchy . 
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2. A section-name which is used in a 
reference together with a 
paragraph-name specified in that 
secti on. 

3. A library-name which is used in a 
reference together with a text-name 
associated with that library. 

X Queue. A logical collection of 
messages awaiting transmission or 
processing. 

X Queue Name. A symbolic name that 
indicates to the MCP the logical path by 
which a message or a portion of a 
completed message may be accessible in a 
queue. 

X Random Access. An access mode in 
which the program-specified value of a 
key data item identifies the logical 
record that is obtained from* deleted 
from* or placed into a relative or 
i ndexed f i le. 

X Record. (See Logical Record.) 

X Record Area. A storage area allocated 
for the purpose of processing the record 
described in a record description entry 
in the File Section. 



* Record Description. 
Description Entry). 



(See Record 



X Record Description Entry. The total 
set of data description entries 
associated with a particular record. 

X Record Key. A key, either the prime 
record key or an alternate record key, 
whose contents identify a record within 
nn indexed file. within the Report 
Section of the Data Division. 

X Record-Name. A usei — defined word that 
names a record described in a record 
description entry in the Data Division. 

Recording Mode. The format of the 
logical records in a file. Recording 
mode can be F (fixed-length), V 
(variable-length), or S (spanned). 

Reel. A unit of external storage 
associated with a tape device. 

X Relation. (See Relational Operator.) 

X Relation Character. A character that 
belongs to the following set: 



Character 

> 
< 



Meaning 

Greater than 
Less than 
Equal to 



X Relation Condition. The proposition, 
for which a truth value can be 
determined, that the value of an 
arithmetic expression or data item has a 



specific relationship to the value of 
another arithmetic expression or data 
item. (See Relational Operator.) 

X Relational Operator. A reserved word, 
a relation character, a group of 
consecutive reserved words, or a group 
of consecutive reserved words and 
relation characters used in the 
construction of a relation condition. 
The permissible operators and their 
meaning are'' 



%. 



Relational Operator 

IS [NOT] GREATER THAN 
IS CNOT3>3 



IS CN0T3 LESS THAN 

IS CNOTKC 

IS CNOT] EQUAL TO 

IS [NOT] = 



Meaning 

Greater than 
or not greater 
than 

Less than 

or not less than 

Equal to or 
not equal to 



X Relative File. 

organizati on. 



A file with a relative 



X Relative Key. A key whose contents 
identify a logical record in a relative 
file. 

X Relative Organization. The permanent 
logical file structure in which each 
record is uniquely identified by an 
integer value greater than 0, which 
specifies the record's logical ordinal 
position in the file. 



i 



Relative Record Data Set 

data set in which the log 
of the records is determi 
ascending order of their 
numbers from the beginnin 
set. Access to the data 
sequential, or random thr 
KEY containing the relati 
number. In COBOL, an RRDS 
organi zati on. 



CRRDS). A VSAM 
ical sequence 
ned by the 
relative record 
g of the data 
set can be 
ough a RELATIVE 
ve record 
uses relative 



Remote Station. In communication, a 
control unit and one or more 
input/output devices connected to the 
central computer through common carrier 
facilities. A remote station may be a 
terminal device, or it may be another 
computer . 



Report Description (RD) Entry. An entry 
in the Report Section of the Data 

is composed of the level 
followed by a report name, 
set of report clauses as 



Division that 
indicator RD, 
followed by a 
requi red. 



Report File. An output file whose file 
description entry contains a REPORT 
clause. The contents of a report file 
consist of records that avQ written 
under control of the Report Writer. 

Report Footing. A report group 
presented only at the end of a report. 
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Report Group. In the Report Section of 
the Data Division* an 01 level-number 
entry and its subordinate report group 
description entries. 

Report Group Description Entry. An 
entry in the Report Section of the Data 
Division that is composed of the 
level-number 01 » an optional data-name> 
a TYPE clause* and an optional set of 
report group description clauses. 

Report Heading. A report group 
presented only at the beginning of a 
report . 

Report Line. A horizontal division of a 
page representing one row of character 
positions. Each character position of a 
report line is aligned vertically 
beneath the corresponding character 
position of the report line above it. 
Report lines are numbered from 1* by 1, 
starting at the top of the page. 



X Report-Name. A use» — defined word that 
names a report defined in a report 
description (RD) entry within the Report 



Section of 



(RD) 
the Data 



Di vi si on. 



Report Section. A Data Division section 
that contains one or more report 
description (RD) entries and their 
associated report group description 
entri es. 

Report Uriter Logical Record. A record 
consisting of the Report Writer print 
line plus the associated control 
information necessary for its selection 
and vertical positioning. 

M Reserved Uord. A COBOL word specified 
in the list of words which may be used 
in COBOL source programs, but which must 
not appear in the programs as 
user-defined words or system-names. 

Routine. A set of statements in a 
program that causes the computer to 
perform an operation or series of 
related operations. 

M Routine-Name. A usei — defined word 
that identifies a procedure written in a 
language other than COBOL. 



RRDS (Relative Record Data Set). 

Relative Record Data Set.) 



(See 



Run Unit. A set of one or more object 
programs which function, at object time, 
as a unit to provide problem solutions. 



S-Mode Records. Reco 
physical blocks. Rec 
or variable in length 
contain one or more s 
segment contains a se 
field and a control f 
whether it is the fir 
an intermediate segme 
Each block contains a 
field. 



rds which span 
ords may be fixed 
; blocks may 
egments. Each 
gment-descri ptor 
ield indicating 
st and/or last or 
nt of the record, 
block-descri ptor 



X Section. A set of zeros, one, or more 
paragraphs or entries, called a section 
body, the first of which is preceded by 
a section header. Each section consists 
of the section header and the related 
section body. 

Section Header. A combination of words 
followed by a period and a space that 
indicates the beginning of a section in 
the Environment, Data, and Procedure 
Di vi si on. 

In the Environment and Data Divisions, a 
section header is composed of reserved 
words followed by a period and a space. 
The permissible section headers areJ 

In the Environment Division* 

CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 

In the Data Division^ 

FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
COMMUNICATION SECTION. 

REPORT SECTION. 

In the Procedure Division, a section 
header is composed of a section-name, 
followed by the reserved word SECTION, 
followed by a segment-number (optional), 
followed by a period and a space. 

» Section-name. A user-defined word 
which names a section in the Procedure 
Di vi sion. 

X Sentence. A sequence of one or more 
statements, the last of which is 
terminated by a period followed by a 
space. 

X Separator. A punctuation character 
used to delimit charactei — strings. 

X Sequential Access. An access mode in 
which logical records are obtained from 
or placed into a file in a consecutive 
predecessoi — to-successor logical record 
sequence determined by the order of 
records in the file. 

X Sequential File. A file with 
sequential organization. 

X Sequential Organization. The 

permanent logical file structure in 
which a record is identified by a 
predecessoi — successor relationship 
established when the record is placed 
into the file. 

Sequential Processing. The processing 
of logical records in the order in which 
records are accessed. 
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Serial Search. A search in which each 
member of the set is consecutively 
examined^ beginning with the first and 
ending with the last. 

X Sign Condition. The proposition, for 
which a truth value can be determined* 
that the algebraic value of a data item 
or an arithmetic expression is either 
less than, greater than, or equal to 0. 

X Simple Condition. Any single 

condition chosen from the set- 
relation condition 
class condition 
condition-name condition 
switch-status condition 
sign condition 
(simple-condition) 

Slack Bytes. Bytes inserted between 
data items or records to ensure correct 
alignment of some numeric items. Slack 
bytes contain no meaningful data. In 
some cases, they are inserted by the 
compiler; in others, it is the 
responsibility of the programmer to 
insert them. The SYNCHRONIZED clause 
instructs the compiler to insert slack 
bytes when they are needed for proper 
alignment. Slack bytes between records 
are inserted by the programmer. 

X Sort file. A collection of records to 
be sorted by a SORT statement. The sort 
file is created and can be used by the 
sort function only. 



X Sort-Merge File Description Entry. 

entry in the File Section of the Data 
Division that is composed of the level 
indicator SD, followed by a file-name, 
and then followed by a set of file 
clauses as required. 



An 



Sort-Work-File. 

involved in the 
this collection 
devi ce( s) . 



A collection of records 
sorting operation as 
exists on intermediate 



* Source. The symbolic identification 
of the originator of a transmission to a 
queue. 

X SOURCE-COMPUTER. The name of an 
Environment Division paragraph in which 
the computer environment, within which 
the source program is compiled, is 
descri bed. 

Source Item. An identifier named in a 
SOURCE clause that provides the value of 
a printable item. 

Source Program. Although it is 
recognized that a source program may be 
represented by other forms and symbols, 
in this manual it always refers to a 
syntactically correct set of COBOL 
statements beginning with an 
Identification Division and ending with 
the end of the Procedure Division. In 
contexts where there is no danger of 



ambiguity, the word 'program' alone may 
be used in place of the phrase 'source 
program. ' 

X Special Character. A character that 
belongs to the following set* 



.iT-^ 



Character 



Meaning 

Plus sign 

Minus sign 

Asteri sk 

Stroke (virgule, slash) 

Equal sign 

Currency sign 

Comma (decimal point) 

Semi colon 

Period (decimal point) 

Quotation mark 

Left parenthesis 

Right parenthesis 

Greater than 

Less than 



X Special-Character Uord. A reserved 
word which is an arithmetic operator or 
a relation character. 

SPECIAL-NAMES. The name of an 
Environment Division paragraph in which 
function-names are related to 
usei — specified mnemonic-names. 

X Special Registers. Compiler generated 
storage areas whose primary use is to 
store information produced in 
conjunction with the use of specific 
COBOL features. 

X Standard Data Format. The concept 
used in describing the characteristics 
of data in a COBOL Data Division under 
which the characteristics or properties 
of the data are expressed in a form 
oriented to the appearance of the data 
on a printed page of infinite length and 
breadth, rather than a form oriented to 
the manner in which the data is stored 
internally in the computer, or on a 
particular external medium. 

X Statement. A syntactically valid 
combination of words and symbols written 
in the Procedure Division beginning with 
a verb. 

X Sub-Queue. A logical hierarchic 
division of a queue. 

X Subject of Entry. An operand or 
reserved word that appears immediately 
following the level indicator or the 
level-number in a Data Division entry. 

X Subprogram. (See Called Program.) 

X Subscript. An integer whose value 
identifies a particular element in a 
table. 

X Subscripted Data-Name. An identifier 
that is composed of a data-name followed 
by one or more subscripts enclosed in 
parentheses. 
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Sum Counter. A signed numeric data item 
defined through a SUM clause in the 
Report Section of the Data Division. The 
Report Writer uses the sum counter to 
contain the result of designated summing 
operations that take place during 
production of a report. 

Switch-Status condition. The 

proposition, for which a truth value can 
be determined, that an UPSI switch, 
capable of being set to an *on' or "off 
status, has been set to a specific 
status. 

Switched Line. A communication line for 
which no single continuous path between 
the central computer and the remote 
station exists. Several alternative 
paths are available for transmission; 
the common carrier switching equipment 
selects the path. The remote station is 
continuously connected to the switching 
center by an access line associated with 
a specific telephone number. 

SYSIN. The system logical input device. 

SYSOUT. The system logical output 
devi ce. 

SYSPUNCH. The system logical punch 
devi ce. 

* System-Name. A COBOL word which is 
used to communicate with the operating 
envi ronment . 

» Table. A set of logically consecutive 
items of data that are defined in the 
Data Division by means of the OCCURS 
clause. 

X Table Element. A data item that 
belongs to the set of repeated items 
comprising a table. 

X Terminal. The originator of a 
transmission to a queue, or the receiver 
of a transmission from a queue. 

X Text-Name. A user-defined word which 
identifies library text. 

K Text-Word. Any charactei — string or 
separator, except space, in a COBOL 
library or in pseudo-text. 

Trailer-Label. A record that identifies 
the ending of a physical file or of a 
volume. 

« Truth Value. The representation of 
the result of the evaluation of a 
condition in terms of one of two values^ 



true 

false 

X Unary Operator. A plus (+) or a minus 
(-) sign, which precedes a variable or a 
left parenthesis in an arithmetic 
expression and which has the effect of 
multiplying the expression by +1 or -1 
respecti vely . 

Unit. A module of mass storage the 
dimensions of which are determined by 
IBM. 

UPSI Switch. A program switch that 
performs the functions of a hardware 
switch. Eight are provided* UPSJ-O 
through UPSI-7. 

K User Defined Word. A COBOL word that 
must be supplied by the user to satisfy 
the format of a clause or statement. 

K Variable. A data item whose value may 
be changed by execution of the object 
program. A variable used in an 
arithmetic expression must be a numeric 
elementary item. 

X Verb. A word that expresses an action 
to be taken by a COBOL compiler or 
object program. 

Volume. A module of external storage. 
For tape devices it is a reel; for mass 
storage devices it is a unit. 

Volume Switch Procedures. Standard 
procedures executed automatically when 
the end of a unit or reel has been 
reached before end-of-f i le has been 
reached. 

VSAM (Virtual storage Access Method). A 

high-performance mass storage access 
method. Three types of data organization 
are available: entry sequenced data sets 
(ESDS), key sequenced data sets CKSDS), 
and relative record data sets (RRDS). 
Their COBOL equivalents are, 
respecti vely J sequential, indexed, and 
relative organizations. 

¥c Uord. A charactei — string of not more 
than 30 characters which forms a 
usei — defined word, a system-name, or a 
reserved word. 

)( UORKING-STORAGE SECTION. The section 
of the Data Division that describes 
working storage data items, composed 
either of noncontiguous items or of 
working storage records or of both. 



Zoned Decimal Item. 
Decimal Item. ) 



(See External 
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Special Characters 



. (see decimal point and period) 79» 80 

+ (see plus sign) 79, 83, 84, 86 

$ (see currency sign) 79, 83, 84, 86 

^ (see slash and stroke) 79, 86 

- (see hyphen and minus) 79, 83, 84 

/ (see slash and stroke) 82 

, (see comma) 7 9 



A, PICTURE clause symbol 

character-string representation 79 

function of 75 
abbreviated combined relation condition 

definition 456 

description and format 120 
About This Book iii 

ACCEPT MESSAGE COUNT statement 315, 328 
ACCEPT statement 

data transfer 158 

formats 158 

mnemonic name in 158, 159 

programming notes 160 

system information transfer 159 
ACCESS IS DYNAMIC 

See dynamic access mode 
ACCESS IS RANDOM 

File-control clause 365 
ACCESS IS SEQUENTIAL 

File-control clause 365 

WRITE statement 145 
access mode 

definition 456 

description 40 
ACCESS MODE clause 

description 44 

formats 41 
acknowledgment 

CODASYL V 
actual decimal point 

definition 456 
ACTUAL KEY clause, compatibility 

extension 366 
ADD statement 

formats 166 

common options 163 

CORRESPONDING option 163 
ADVANCING option 333 

omi ssi on of 142 

WRITE statement 357 
AFTER option of INSPECT 179 
AFTER POSITIONING option, compatibility 

item 387 
alignment rules 

decimal point in arithmetic 
statements 164 

standard 66 
ALL literal figurative constant 

description 17 
ALL option of INSPECT statement 178 
alphabet -name 



definition 456 
alphabet-name clause 

CODE-SET clause and 35 

description 35 

examples 36 

options 35 
alphabetic character 

ACCEPT statement 158 

definition 456 

list of 12 
ALPHABETIC class test 112 
alphabetic item 

alignment rules 66 

INSPECT statement and 176 

PICTURE clause and 80 
alphanumeric character, definition 456 
alphanumeric class and category 

alignment rules 66 

description 66 

list of characters 12 
alphanumeric edited character, 

definition 456 
alphanumeric edited item 

alignment rules 66 

elementary move rules 173 

INSPECT statement and 176 

PICTURE clause and 81 
alphanumeric item 

alignment rules 66 

INSPECT statement and 176 

PICTURE clause and 81 
ALTER statement 

description and format 196 

GO TO statement and 196 

segmentation considerations 291 
alternate record key 

definition 456 
ALTERNATE RECORD KEY clause 

description 46 

formats 41 

WRITE statement and 144 
AND logical connective 

combined conditions 116 
Area A (cols. 8-11) 22 
Area B (cols. 12-72) 22 
arithmetic expression 

definition 456 

description 109 
arithmetic operator 

definition 456 

description 109 

valid permissible symbol pairs 110 
arithmetic statements 

ADD statement formats 166 

common options 163 

COMPUTE statement 171 

CORRESPONDING option 163 

DIVIDE statement format 169 

GIVING option 164 

multiple results 166 

MULTIPLY statement formats 169 

operands 165 

programming notes 166, 171 

ROUNDED option 164 

SUBTRACT statement format 167 
ASCENDING/DESCENDING KEY option 

definition 456 

description 241 
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OCCURS clause 221 , 

SEARCH ALL statement results 230 
ASCII, definition 456 
ASCII, processing 

considerations 410-412 
ASSIGN clause 

compatibility extension 365 

description and format 43 

system dependencies 356 
assigning index values 224 
assi gnment-name 

ASSIGN clause and 43 

definition 456 

RERUN clause 48 

sequential access mode 154 
assumed decimal point 

definition 456 
asterisk (^) 76, 79, 86 

check protect symbol 76 

invalid in CURRENCY SIGN clause 37 

precedes comment line 24 
AT END condition 

definition 456 

READ statement, sequential 
access 150 

SEARCH ALL statement 230 

SEARCH statement 227 



B, PICTURE clause symbol 

charactei — string representation 79 

function of 75 

simple insertion editing 82 
BASIS statement 297 
BEFORE/AFTER options, INSPECT 179 
binary arithmetic operators 109 
binary item 

definition 457 
binary search of a table 

description 229 

format 227 
blank line 

descri pti on 
BLANK WHEN ZERO 
BLOCK CONTAINS 

descri pti on 

formats 56 
block, definition 
body group 

definition 457 
boundary violation, 
brackets ([]) 6 
buffer 

definition 457 
byte, definition 457 



24 

clause 
clause 
58 



457 



74 



WRITE statement 144 



embedded operational sign 111 
CALL statement 

formats 306 

segmentation considerations 292, 307 

subprogram linkage 301, 306 

USING option 305, 361 
called program, definition 457 
called subprogram 



Linkage Section 306 
calling program 

definition 457 

segmented 292 
card devices, multifunction 3 
CD CCommuni cati on Description) entry 

description 315, 317, 318 

format 319-326 

restrictions 319 
channel, definition 457 
Character Code, CODE-SET clause 62 
character position, definition 457 
character set, COBOL definition 13 
charactei — stri ng 

and item size 67 

definition 13, 457 

literal 16 

representation 79 
character, definition 457 
characters allowed 

COBOL program 12 

user-defined word 14 
CHARACTERS option 

BLOCK CONTAINS clause 56 

INSPECT statement 178 
check protect symbol 76 
checkpoint 

definition 457 
class condition 

definition 457 

description and format 111 

Numeric class test 111 
classes of data, concepts 66 
clause sequence, required order 11 
clause, definition 11, 457 
CLOSE statement 

combined function card 
processing 417 

compatibility extension 390 

formats 155 

system dependencies 357 
COBOL (COmmon Business Oriented 
Language) 

character set 13 

clauses and statements 11 

di vi si ons 10 

general description 1 

industry standards iii 

language, structure of 12 

program structure 10-11 

words, detailed description 13 
COBOL character set 

definition 457 
CODASYL acknowledgment v 
CODE clause 

description 253 

report writer 259 
CODE-SET clause 

description 62 
collating sequence 

and OBJECT-COMPUTER paragraph 34 

ASCII 450 

definition 457 
COLLATING SEQUENCE option 

description 242 
COLUMN clause 

format 272 

function illustrated 255 

invalid with null group 265 

with printable group 265 
column 7 

asterisk i^) specifies comment 24 

continuation area 23 

slash (/) specifies comment 24 
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column, definition 457 
combined condition 

definition 457 

description and format 117 

evaluation rules 119 

order of evaluation 119 
comma ( , ) 76 , 7 9 

character, definition 12 

Configuration Section 32 

overall punctuation rules 19 

PICTURE symbol 76 

separator, rules for using 19 
comment 

characters valid in 18 

description 18 
comment line 

definition 18, 458 

description 24 

in library text 294 
comment -en try 

definition 18, 457 

Identification Division 19, 30 
common data, subprogram linkage 300 
common processing facilities 

description 134 
Communication Description entry 

See CD (Communication Description) 
entry 
Communication Feature 313, 334 

concepts 313 

Data Division 317 

Procedure Division 326 
Communication Section 317 
COMP-1 option 397 
COMP-2 option 397 
COMP-3 option 95 
COMP-4 option 95 
comparison rules 

index names 223 

INSPECT statement 176 

OPEN statement execution 139 
compile time, definition 458 
COMPILE-TIME DEBUGGING PACKET 405 
compile-time switch 335 
compiler calculation of intermediate 

results 419 
compiler directing statement 

debugging declarative and 209 

definition 458 

description 108 

ENTER statment 209 

list of 108 

sentence category 108 
compiler features, OS/VS COBOL 3-4 
compiler, definition 458 
complex conditions 

abbreviated combined relation 120 

combined condition 117 

definition 458 

description and format 116 

IF statement condition 121 

negated simple 117 
compound condition 

See combined condition 
COMPUTATIONAL item 95 

valid for table KEY 221 
COMPUTATIONAL-l option 397 
COMPUTATIONAL-2 option 397 

compatibility extension 398 
COMPUTATIONAL-3 option 95 
COMPUTATIONAL-4 option 95 
COMPUTE statement 

common options 164 

format 171 



programming notes 171 
computer- name 

definition 458 

SOURCE-COMPUTER, OBJECT-COMPUTER 
paragraph use 33 

system-name 33 
condi ti on 

abbreviated combined relation 120 

complex 116 

condition-name 112 

definition 458 

negated simple 117 

relation 113 

sign 115 

switch-status 116 

to combine, listing 117 
condi ti on-name 

and conditional variable 69 

definition 458 
condi t i on-name-condi ti on 

definition 458 

description and format 112 
conditional expression 

definition 458 

description 111 
conditional statement 

description 105 

GO TO statement 195 

in IF statement 121 

list of 106 

PERFORM statement 200 

specification of 121 
conditional variable 

and condition-name entries 69 

definition 458 

description 69 
Configuration Section 

definition 458 
connective words, description 15 
connective, definition 458 
console, definition 458 
contiguous items, definition 458 
conti nuati on 

of lines 23 
continuation area 

column 7 21 

description 21 

use of asterisk ()<) or slash (/) 24 
continuation line 

description 23 
control break 

definition 458 
control break level, definition 459 
CONTROL clause 

description 252 

report writer 259 
control data item, definition 459 
control data-name, definition 459 
CONTROL FOOTING report groups 

definition 459 
control group, definition 459 
CONTROL HEADING report groups 

definition 459 
control hierarchy, definition 459 
control transfer rules 

explicit and implicit 27 

segmentation considerations 289 

subprogram linkage concepts 300 
conversion of data 

DISPLAY statement 160 
COPY statement 

example 296 

format 293 

old language extension 408 
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REPLACING option 294 

SUPPRESS option 294 
CORRESPONDING option 

abbreviation 163 

description 163 

MOVE statment 172 

SIZE ERROR option and 165 
count field in INSPECT statement 
COUNT IN option, UNSTRING 186 
counter, definition 459 
CR (credit) PICTURE symbol 76, 80, 83 
currency sign ($) 77, 79 

definition 459 
CURRENCY SIGN clause 

format 33 
CURRENCY SIGN symbol 

definition 459 
currency symbol ($) 83, 84, 86 
current record pointer 

common processing facility 137 

definition 459 

READ statement 150 

REWRITE statement 152 
current record, definition 459 
CURRENT-DATE special register 395 



D 



111 



embedded operational sign 
data alignment 66 
data categories 

description 66 

PICTURE clause and 80 
data clause, definition 459 
data conversion 

in Communication Feature 317 
data description 

basic concepts 64 
data description entry 

compatibility extension 396 

data-name/FILLER clause 71 

definition 459 

formats 68 

general description 68 

indentation and 66 

level-number 70 
Data Division 

ASCII considerations 411, 412 

combined function card 
processing 415 

data relationships 53 

definition 459 

external data 52 

FILE-SECTION 54 

format 53 

general description and formats 52 

in Communication Feature 315 

internal data 52 

LINKAGE-SECTION 55 

organization 53 

overview 10 

punctuation in 20 

report writer 257 

REPORT-SECTION 55 

sort/merge 238 

specification of entries 23 

subprogram linkage 303 

table handling considerations 219 
data hierarchies 

used in qualification 25 



data item 

data description entry 68 

definition 459 
data item description entry (level-77 
entry) 

general description 54 
data manipulation statements 

INSPECT statement 175 

MOVE statement 172 

overlapping operands 172 

programming notes 180, 185, 192, 193 

STRING statement 181 

TRANSFORM statement 192 

UNSTRING statement 185 
data organization 

description 39 
data receiving fields, UNSTRING 

statement 186 
DATA RECORDS clause 

description 60 

formats 56 
data reference. Procedure Division 27 
data references, methods of 25-28 
data transfer 

See transfer of data 
data truncation 

See truncation of data 
data-name 

definition 459 

duplication restriction 26 

qualification format 25 

subscript 215 
data-name/FILLER Clause, description 71 
date of compile in source listing 31 
DATE special register 159 
DATE-COMPILED paragraph 

description and format 30 
DAY special register 159 
DB (debit) PICTURE symbol 76, 80, 83 
DEBUG CARD, compatibility extension 405 
DEBUG-ITEM special register 339 
debugging features 335, 341 
Debugging Language, compatibility 

extension 402 
debugging line and section 

COPY statement 294 

definition 459 
debugging section, definition 459 
decimal poi nt ( . ) 

arithmetic statements 164 

PICTURE symbol 76 

special insertion editing 83 
DECIMAL POINT IS COMMA clause 

format 33 
declarative procedures 

description and format 126 

overall description 104 
declarative-sentence, definition 459 
DECLARATIVES key word 

begin in Area A 23 

definition 459 

precedes Declarative procedures 126 
definition 461 
DELETE statement (input/output) 

dynamic access 154 

format 154 

programming notes 154 

random access 154 
DELETE statement (source program 
li brary) 

format 298 
DELIMITED BY ALL option, UNSTRING 

statement 186 
DELIMITED BY option 
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STRING statement execution 182 
del imi ter 

definition 459 

INSPECT statement 179 

STRING statement 181 

UNSTRING statement 18« 
descending key 

definition 459 
DESCENDING/ASCENDING Key option 

See ASCENDING/DESCENDING KEY option 
DESTINATION COUNT clause 324 
DESTINATION TABLE clause 325 
DETAIL report group 

GENERATE statement 277 

GROUP indicate clause valid 273 

last printable line 262 

TYPE DETAIL and body group 261 
detail reporting 

description 256 
digit position/ definition 460 
digit, definition 460 
direct access storage 

definition 460 
direct indexing 216 
DISABLE statement 315, 327 
disk facilities 3 
DISPLAY option 94 
DISPLAY option of USAGE clause 
DISPLAY statement 

format 160 

programming notes 162 
DIVIDE statement 

common options 164 

formats 169 
di vi si on header 

definition 46 

format. Environment Division 32 

format. Identification Division 30 

specification of 22 
division, COBOL 

definition 46 
DUPLICATES option of ALTERNATE RECORD 
KEY clause 

WRITE statement and 144 
dynamic access mode 

DELETE statement 154 

description 40 

READ statement 152 

VSAM indexed files 41 
dynamic access, definition 460 
dynamic values in a table 218 



embedded operational sign 111 
EBCDIC 

CODE-SET clause and 62 
EBCDIC Character, definition 460 
edi t i ng 

signs used in 68 
editing character, definition 460 
editing sign 

description 68 
EJECT Statement 406 
elementary item 

alignment rules 66 

basic subdivisions of a record 64 

classes and categories 66 

definition 460 

MOVE statement 173 



nonnumeric operand comparison 115 

size determination 67 
elementary move rules 

description 173 

summary 174 
ENABLE statement 315, 326 
End Indicator Codes 333 
END KEY clause 321 
end of execution 361 
end of file processing 155 
End of Group Indicator (EGI) 333 
End of Group Indicators (EGI) 317 
End of Message Indicator (EMI) 333 
End of Message Indicators (EMI) 317 
End of Procedure Division, 

definition 460 
End of Segment Indicator (ESI) 333 
End of Segment Indicators (ESI) 317 
End of Transmission (EOT) line control 

character 322 
END-OF-PAGE option 

compatibility extension 387 

description 143 

WRITE statement 141 
ENTER statement 

description and format 209 
Entry Sequenced Data Set (ESDS), 

definition 460 
ENTRY statement 

format 308 

subprogram linkage 308 
entry-name, definition 460 
entry, definition 460 
Environment Clause, definition 460 
Environment Division 

ASCII considerations 410, 411 

Configuration Section 32 

definition 460 

general description 10 

Input-Output Section 39 

old language extension 407 

punctuation in 20 

report writer 256 

segmentation 290 

sort/merge 236 
EOP option, compatibility 

extension 387 
equal sign (=) 

relation condition 12, 113 

separator 18 
EQUAL TO relational operator 113 
error conditions 

See EXCEPTION/ERROR Declarative 
ERROR KEY clause 325 
evaluation rules 

combined conditions 119 

EBCDIC 446 

nested IF statement 122 
EXAMINE statement, compatibility 

extensi on 399 
examples 

abbreviated combined relation 
condition 120 

alphabet-name clause 36 

condition-name condition 112 

COPY statement 296 

data transformation 193 

Nested IF statement 122 

STRING statement 183 

subprogram linkage 310 

table building and searching 231 

UNSTRING statement 189, 190 
EXCEPTION/ERROR Declarative 

CLOSE statement and 155 
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compatibility extension 375 

DELETE statement 154 

description and format 127 

EXTEND option 128 

file-name option 127 

general considerations 128 

INPUT option 127 

OUTPUT option 128 
execution flow 

ALTER statement changes 196 

GO TO statement changes 195 

PERFORM statement changes 197 

STOP statement halts 207 
execution-time statistics 3 
EXHIBIT Statement 't02 
EXIT PROGRAM statement 

system dependencies 361 
EXIT statement 207 

explicit attribute, description 27 
explicit references 27-28 
exponent, definition 461 
exponent, fractional 171 
extend mode, definition 461 
EXTEND option of OPEN statement 

description and format 138 

VSAM indexed files 140 
extended source program library 

BASIS statement 297 

DELETE statement 298 

INSERT statement 298 
external data concepts 52 
external-decimal item 

definition 461 

DISPLAY statement 160 

INSPECT statement and 176 



sort/merge 237 

system dependencies 356 

VSAM indexed file 42 

VSAM relative file 42 
FILE-CONTROL, definition 461 
f i le-name 

definition 461 

description 58 

formats 56 
FILLER key word 

description and format 71 

for CD entry 319 
final arithmetic results 

See result field 
FIPS Flagger 341, 352 

UNSTRING statement 185 
FIRST option of INSPECT REPLACING 
fixed insertion editing 83 
fixed length item 

maximum length 68 
fixed length record 

size specification 58, 258 
fixed length table 

OCCURS clause format 219 
fixed program segments 288 
floating insertion editing 84 
floating point, as extension 395 
FOOTING option 

LINAGE clause 60 
FOR REMOVAL option, CLOSE statement 
format notation, description 5-7 
format, definition 461 
fractional exponent 171 
FROM option 

ACCEPT statement 158 

TRANSFORM statement 192 
functi on-name 

definition 461 

SPECIAL-NAMES paragraph 34 
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F 

embedded operational sign 111 
FD (file description) entry 

compatibility extension 370 

definition 461 

description and formats 56 

report writer format 257 

system dependencies 354 
figurative constant 

definition 16, 461 

description 17-18 
file 

file clause, definition 461 
file labels 59 

file organization, definition 461 
file processing summary 39 
file processi ng, sample programs 422 
Fi le Sect i on 

definition 461 

description and formats 

report writer 257 
FILE STATUS clause 

DELETE statement and 154 

description 45 

formats 41 

INVALID KEY option and 

status key 134 
FILE-CONTROL entry 

compatibility extension 

description and formats 

report writing, use in 



56 



136 



364 
41 
257 



general punctuation rules 19 
GENERATE statement 

report writing, use in 256 
generic key, START statement uses 383 
GIVING option, arithmetic 

GIVING option 164 
GIVING option, sort/merge 

description 243 
GO TO statement 

formats 195 
GOBACK statement 

format 309 

segmentation concepts 289 

system dependencies 361 
GREATER THAN symbol (>) 

relation character 12 

relation condition 113 
group entry 
GROUP INDICATE clause 
group item 

class and categories 66 

definition 461 

description 64 

level-number concepts 64 

MOVE statement 175 

nonnumeric operand comparison 115 
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header labels definition 461 

HEADING report group 

high order end* definition 461 

HIGH-VALUE/HIGH-VALUES figurative 
constant 

description 17 

hyphen (-) 

in continuation area 23 
meaning as COBOL character 13, 



139 
368 
47 



395 
30 



I-O option, OPEN statement 
I-0-CONTROL paragraph 

compatibility extension 

definition 461 

description and formats 

sort/merge format 237 
I-O-Mode* definition 461 
IBM extensions 

descri pt i on i i i / 7 

Full ANS COBOL compatibility 
items 364 

how printed in this manual 7 

report writer 251 
Identification Division 

compatibility extension 

definition 461 

description and format 

general description 10 
ident if i er 

and arithmetic expressions 

definition 461 

general description 104 
IF statement 

compatibility extension 399 

description and format 121 

nested IF 122 
imperative statement 

definition 461 

general description 106 

list of 106 

sentence category 108 
implicit attribute, description 
implicit redefinition 

multiple record description 
implicit references 27-28 
indentation to clarify logic 
indentation, COBOL format 23 
independent program segments 
i ndex 

assigning values 

definition 216, 
index data item 

comparison rules 

definition 222, 

MOVE statement rules 172 

SET TO statement, receiving 
field 225 
INDEX usage 

format 222 
index-name 

assigning values 

comparison rules 

definition 462 

description 216 

i ni tial i zat i on 



109 



27 
57 



66 
288 



224 
461 

223 
462 



224 
223 



OCCURS clause, INDEX BY option 222 

SET statement 224 
INDEXED BY option 

OCCURS clause 222 
indexed file 

definition 462 

DELETE statement 154 

organization 40 

sample programs 426 
indexed organization, definition 462 
i ndexi ng 

definition and format 216 

MOVE statement evaluation 172 

OCCURS clause specification 219 

restrictions for qualifiers 27 

UNSTRING statement evaluation 188 
industry standards, COBOL iii 
initialization by programmer 

indexes 217 

table values 218 
INITIATE statement 

report writing, use in 256 
input file 

definition 462 
input mode, definition 462 
input procedure for sort 

description 244 
input procedure, definition 462 
input queue 313 
Input-Output Section 

definition 462 
input/output device 

See assignment-name 
input/output file 

definition 462 
input/output statements 

ACCEPT statement 158 

CLOSE statement 155 

DELETE statement 154 

DISPLAY statement 160 

EXCEPTION/ERROR procedures, 
activate 128 

general description 130 

OPEN statement 138 

START statement 146 

system dependencies 357 

WRITE statement 141, 152 
INSERT statement 

format 298 
insertion editing 82 
INSPECT statement 

comparison rules 176 

examples 179 

formats 175 

REPLACING option 178 
i nteger 

definition 462 
intermediate results 

descriptions 419 
internal data concepts 52 
internal decimal item 

definition 462 

DISPLAY statement 161 
interrecord slack bytes 89, 92 
INTO option of RETURN statement 246 
intra-record slack bytes 
intrarecord slack bytes 89 
invalid key condition 

common processing facility 136 

definition 462 
INVALID KEY option 

compatibility extension, REWRITE 
statement 389 
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compatibility extensionr WRITE 

statement 388 
DELETE statement 154 
REWRITE statement 153 
sequential organization 153 
START statement execution 147 
WRITE statement restriction 144 



JUSTIFIED clause 74 



40 



key of reference 

definition 462 

indexed files and 
KEY option 

OCCURS clause 221 

READ statement 151 
Key Sequenced Data Set (KSDS) 
key word 

definition 462 

detailed description 15 

format notation description 
key/ definition 462 
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LABEL RECORDS clause 

compatibility extension 370 

description 59 

formats 56 

VSAM considerations 60 
language base^ OS/VS COBOL 1-2 
language considerations 

compatibility extension 395 

description 9-28 

multiple languages in source 
program 209 

subprogram linkage 301 
language- name 

as system-name 14 

definition 462 
LEADING option of INSPECT 178 
LEADING option of SIGN clause 
left truncation 

See truncation of data 
LESS THAN symboKO 

COBOL character 12 

relation condition 113 
level indicator 

begins in Area A 23 

definition 462 
level number 

begins in Area A or Area B 23 

compatibility extension 396 

concepts 64 

definition 462 

i llustrati on 65 

record description 64 



rules 70 
level 02-49 entry 

description 64 
level-01 entry 

concepts 64 

description 64 
level-66 entry 

description 66 
level-77 entry 

description 66 
level-88 entry 

description 66 
library text» definition 462 
1 i brary-name 

See also parentheses 

definition 462 
LINAGE clause 

description 60 

formats 55 

general considerations 61 
LINAGE integei — 5/data-name-5/ 

description 60 
LINAGE-COUNTER special register 

END-OF-PAGE condition 144 
line advancing 

See ADVANCING option 
LINE clause 

LINAGE-COUNTER rules 143 

LINEAGE-COUNTER and 62 

report writing, use in 254 
line number, definition 462 
LINE-COUNTER special register 

description 62 

LINAGE clause and 62 
line, definition 462 

LINES AT TOP option of LINAGE Clause 61 
Linkage Section 

called subprogram 306 

definition 462 

format 53 

general description 55 

subprogram linkage 300 
lister feature 

description 3 

2 column format used 21 
literal 

and arithmetic expressions 109 

character string 16 

definition 463 

detailed description 16 

nonnumeric and numeric 16 

nonnumeric operand comparison 115 

subscript 215 
logical connective 

complex condition 116 

description 15 

list of 116 
logical operator 

definition 463 

in evaluation of combined 
conditions 118 

list of 116 
logical page, definition 463 
logical record 

definition 463 
low order end, definition 463 
LOW-VALUE/LOW-VALUES figurative constant 

description 17 
lowercase, usei — defined words printed 
i n 6 
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format 168 
multivolume files 

READ statement 150 
WRITE statement 144 



mam program 

definition 463 
manual organization^ description iv 
maximum number/size 

MEMORY SIZE clause as documentation 34 
merge file 

concepts 236 

definition 463 
MERGE statement 

format 240 

segmentation considerations 291 
message 317 
Message Control System (MCS) 

COBOL word 13 

Communication Section entry 68 

computational item 95 

data description entry 68 

description 313 

external decimal item 94 

File Section entry 68 

index value 217 

lines on printed page 60 

Linkage Section entry 68 

nonumeric literal 16 

numeric edited item character 
positions 81 

numeric literals 16 

PICTURE character-string 75 

Report Section entry 68 

scheduling 320 

sort records 248 

sort/merge keys 242 

subscript value 215 

table element 219 

table keys 221 

table length 219 

\/ALUE clause^ bytes initialized in 
one 99 

Working-storage Section entry 68 
MESSAGE COUNT clause 323 
MESSAGE DATE clause 321 
message segments 317 
MESSAGE TIME clause 321 
MIGR option^ statements flagged 453 
minus sign(-) 

COBOL character 12 

editing sign control symbol 76 

fixed insertion editing 83 

floating insertion editing 86 

SIGN clause, in 87 

use in PICTURE character-string 79 
mnemoni c-name 

ACCEPT statement operand 158 

definition 463 

DISPLAY operand 161 

SPECIAL-NAMES paragraph 34 
MOVE statement 

compatibility extension 401 

CORRESPONDING option 163, 172 

elementary moves 173 

formats 172 

group moves 175 

scaling, old language extension 408 
MULTIPLE FILE TAPE clause 

description 50 

format 47 
multiple results, arithmetic statements 

execution rules 166 
MULTIPLY statement 

common options 164 



name, definition 463 

native character set, definition 463 

native collating sequence, 

definition 463 
negated combined condition, 

definition 463 
negated simple condition 

definition 463 

description and format 117 
negative sign 

See minus sign(-) 
nested IF statement 

description 122 

flowchart 125 

true/false combinations 124 
next executable sentence, 

definition 463 
next executable statement 

definition 463 
NEXT GROUP clause 

concepts 254 

format 271 

print suppression 282 
next record, definition 463 
NEXT SENTENCE phrase 121 
noncontiguous items, definition 463 
nonnumeric item 

definition 463 
nonnumeric literal 

characters valid in 16 

definition 463 

description 16 

figurative constant as 17 
NOT connective, old language 

extension 408 
NOT logical connective 

See logical connective 
NOTE statement 400 

TABLE HANDLING FEATURE, compatibility 
extension 401 
numerals 

numeric literal 16 
numeric characters 

definition 464 

usei — defined words allowed 14 
NUMERIC class test 111 
numeric edited category 

alignment rules 67 
numeric edited item 

alignment rules 67 

definition 464 

elementary move rules 174 

INSPECT statement and 176 

PICTURE clause and 81 
numeric item 

alignment rules 67 

definition 464 

PICTURE clause and 80 
numeric literal 

definition 464 

description 16 

floating point, compatibility 
extension 395 
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object of entry^ definition 464 
object program 

communication scheduling 317 

definition 464 
object time 

definition 464 

PASSWORD clause control 45 
OBJECT-COMPUTER paragraph 

and PROGRAM COLLATING SEQUENCE 
clause 34 

definition 464 

description 34 

SEGMENT-LIMIT clause 290 
object-time switch 335 
OCCURS clause 

ASCENDING/DESCENDING KEY Option 

compatibility extension 401 

formats 219 

INDEXED BY option 222 

restrictions 219 

table definition and 219 
OCCURS DEPENDING ON clause 

format 219 

object 220 
old language extensions 407 
OMITTED option, FD entry 59 
ON OVERFLOW option 

STRING statement 182 

UNSTRING statement 188 
ON Statement 404 
open mode, definition 464 
OPEN statement 

compatibility extension 383 

description and format 138 

LINAGE-COUNTER and 62 

OPEN statement positions 137 

options 138 

system dependencies 357 
operands 

comparison of nonnumeric 114 

comparison of numeric 114 

definition 464 

overlapping 165, 172, 192 
operational sign 

algebraic, description of 68 

definition 464 

valid in EBCDIC collating 
sequence 111 
optional entries 

description 43 
optional word 

definition 464 

detailed description 15 

format notation description 6 
order of entries 

FILE-CONTROL entry 43 

I-0-CONTROL paragraph 47 

Identification Division 30 
order of execution 

See execution flow 
ORGANIZATION clause 

description 44 
output f i le 

def i ni t i on 464 
output mode, definition 464 
output procedure sort/merge 

definition 464 

description 244 
output queue 313, 315 
overflow condition 



definition 464 

overlapping operands invalid in 
arithmetic statements 165 
data manipulation statements 

overlay, definition 464 



172 



104 



22 



104 
465 



P, PICTURE clause symbol 

charactei — string representation 79 

function of 75 
page body, definition 464 
PAGE clause 

description 251 
PAGE FOOTING group 

def i ni t i on 464 
221 PAGE HEADING group 

definition 465 
PAGE-COUNTER special register 

description 282 

report-name qualifier 259 
page, definition 464 
paragraph 

definition 465 

general description 
paragraph header 

definition 465 

specification of 
para graph- name 

definition 465 

general description 

specification of 22 
parameter, definition 
parentheses 

combined conditions, use 118 

in arithmetic expressions 109 

separators, rules for using 19 
PARM, from JCL 361 
PASSWORD clause 

description 45 

formats 41 

option of OPEN statement 

system dependencies 356 
password, definition 465 
PERFORM statement 

conditional PERFORM 200 

description and formats 

execution sequences 199 

EXIT statement 207 

initializes index 217 

segmentation considerations 

STOP statement 207 

TIMES option 200 

VARYING option 200 
period ( , ) 76, 80, 83 

special insertion editing 
phrase, definition 11, 465 
physical sequential file 



140 



197 



291, 408 



83 



of WRITE 



156 
entry 



ADVANCING option 

statement 142 
CLOSE statement 
file description 
I-0-CONTROL paragraph, 
multivolume files 150 
OPEN statment options 
RERUN clause 48 
SAME clause restriction 
status key values 136 
WRITE statement format 
PICTURE clause 

and class condition 111 



56 
format 

140 

49 

141 



47 
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character string 18 

compatibility extension 396 

computational items and 95 

CURRENCY SIGN clause 37 

data categories and 80 

description 74 

editing 82 

symbols for 75 
PICTURE clause symbols 

list of and descriptions 75 

numeric items and 80 
plus sign (+) 79, 86 

editing sign control symbol 76 

fixed insertion editing 83 

floating insertion editing 86 

floating insertion symbol 84 

numeric edited items 81 

use in PICTURE character-string 79 
POINTER option 

STRING statement execution 182 

UNSTRING statement 187 
POSITIONING option 386 
Preface i i i 
prime record key 

definition 465 
print files 

combined function card 
processing 417 
print suppression 

report writer 282 

zero suppression 86 
PRINT-SWITCH 

report writer 282 
printable item, definition 465 
printable report group 

definition 465 
priority number 

definition 465 

Environment Division 290 

in EXCEPTION/ERROR declarative 127 

Procedure Division 290 
procedure 

definition 465 

general description 104 
procedure branching statements 195, 
208, 209 

executed sequentially 195 

GO TO statement 195 
Procedure Division 208, 209 

compatibility extension 372 

data reference in 27 

Declarative procedures 126 

definition 465 

description 103 

ENTER statement 209 

EXIT statement 207 

for Communication Feature 326 

formats 105 

general description 10 

in Communication Feature 315 

old language extension 408 

organization of 104 

priority-numbers 290 

punctuation in 20 

report writer 255 

segmentation 290 

sort/merge 239 

subprogram linkage 304 
procedure- name 

definition 465 
process, definition 465 
processing considerations, ASCII 410 



PROGRAM COLLATING SEQUENCE clause 

alphabet-name clause and 35 

description 34 

format 33 

programming notes 37 

SPECIAL-NAMES paragraph and 34 
program segments 288 
program structure 

general description 10 
PROGRAM-ID paragraph 

description and format 30 
program-name 

definition 465 

PROGRAM-ID paragraph, description 31 
programming notes 

ACCEPT statement 160 

altered GO TO statement 197 

arithmetic statements 166, 171 

COMPUTE statement 171 

data niani pulat i on statements 180, 
185, 192, 193 

DELETE statement 154 

DISPLAY statement 162 

EXCEPTION/ERROR procedures 129 

EXIT statement 207 

fractional exponents 171 

INSPECT statement 180 

PERFORM statement 205 

RECORDS CONTAINS clause 59 

SAME Clause 50 

sort/merge 248 

STOP statement 208 

STRING statement 185 

table handling 230 

TRANSFORM statement 193 

UNSTRING statement 192 
psuedo-text 

COPY statement operand 294 

definition 465 
psuedo-text delimiter(= =) 

definition 465 

separator r rules for using 19 
punch files 

combined function card 
processing 414 
punctuation character 

defined as separator 18 

definition 465 

list of 18 

rules for use 19 

within numeric literals 16 



quali f i cati on 

detailed description 25 

rules 26 
qualified data name, definition 465 
qualifier 

definition 465 

detailed description 25 
queue structures 313 
quotation mark (") character 

as a separator 19 

nonnumeric literal and 24 
Quotation Mark, compatibility 

extension 406 
QUOTE/QUOTES figurative constant 

description 17 
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random access 

def i ni ti on 466 

FILE CONTROL paragraph 365 

random or dynamic access mode 154 

READ statement and 151 
RD entry 

CODE Clause 253 

CONTROL Clause 252 

description 251 

PAGE Clause 251 

report writer format 259 
READ statement 

AT END condition 150 

AT END option ana 3S5 

combined function card 
processing 416 

compatibility extension 385 

description and format 148 

INTO identifier option 149 

INTO/FROM identifier option 136 

KEY option 151 

random access f i les 151 

READ statement considerations 137 

READ statement execution 136 

sequential access 150 

VSAM files 150 
READY/RESET TRACE statement 402 
RECEIVE statement 315, 320, 329 
receiving field 

MOVE statement 172 

multiple results rules 166 

SET statement 225 

STRING statement 181 
receiving item 

arithmetic statement option 
rules 163 

COMPUTE statement and 171 
record area 

definition 466 

description 59 
RECORD CONTAINS clause 

formats 56 

report writer 258 

system dependencies 357 
record description entry 

description 54 

report writer 258 
record description entry, 

def i ni t i on 466 
RECORD KEY clause 

compatibility extension 367 

description 46 

formats 41 
record key in indexed file 

definition 466 

DELETE statement uses 154 
record-name 

definition 466 
recording mode 

compatibility extension 371 

definition 466 

system dependencies 355 
RECORDS option of RERUN Clause 368 
RECORDS option, FD entry 59 
REDEFINES clause 

compatibility extension 396 

description and format 71 

general considerations 72 

invalid in redefined item 71 

OCCURS clause restriction 72 



redef ini ti on 

implicit 57 
REEL/UNIT option 

CLOSE statement 156 
reel, definition 466 
relation character 

COPY statement 295 

definition 466 

INSPECT statement 175, 178 

symbols 12 
relation condition 

abbreviated combined 120 

definition 466 

description and format 113 

table-handling rules 223 
relational operator 

definition 466 

in cibbrsviatsd ccmbinsd ri?l'«tic»r> 
condition 120 

relation condition use 113 
relati ve f i le 

definition 466 

DELETE statement 154 

organization 40 

required and optional entries 133 

sample programs 430 
relative indexing 216 
relative key 

definition 466 
RELATIVE KEY clause 

description 47 

formats 41 
relative organization, definition 466 
relative record data set, 

definition 466 
RELEASE statement 

format (Sort Statement Only) 245 
REMAINDER option of DIVIDE 

statement 170 
RENAMES clause 100 
REPLACING option 

COPY statement 294 

INSPECT statement 176 
REPORT clause 

report writer 257 
REPORT clause, description 62 
report description (RD) entry, 

definition 466 
report f i le 

definition 466 
report footing 

definition 466 
report group 

definition 466 
report group description entry 

contents 254 

definition 467 

description 253 

horizontal spacing 254 

LINE Clause 254 

NEXT GROUP Clause 254 

procedure division concepts 255 

SOURCE Clause 254 

SUM Clause 254 

VALUE Clause 254 

vertical spacing 253 
report heading 

definition 467 
report line 

definition 467 
Report Section 

definition 467 

general description 55 

report writer 258 
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Report Writer 

CODE Clause 259 

concepts 251 

CONTROL Clause 259 

data division 257 

environment division 256 

FD entry format 257 

FILE-CONTROL Entry 257 

RECORD CONTAINS Clause 258 

REPORT Clause 257 

report section 258 

report-name 259 

SPECIAL-NAMES Paragraph 256 
report writer logical record* 

def i ni ti on 467 
Report Writer special registers 

LINE-COUNTER 283 

PAGE-COUNTER 282 

report writer 275 
Report Writer subroutines 255 

report writing, use in 280 
report-name 

def i ni t i on 467 

description 259 

qualifier 26 
RERUN clause 

compatibility extension 368 

description 48 

format 48 

sort/merge 238 
RESERVE clause 

format 407 

old language extension 407 

system dependencies 356 
reserved word 

definition 467 

description 15-16 
reserved word list 436 
RESET option 
result field 

GIVING option 164 

ROUNDED option rules 164 

SIZE ERROR option rules 164 
RETURN statement for sort/merge 

format 246 
RETURN-CODE special register 

description 358 
REWRITE statement 

compatibility extension 389 

description and format 152 

INTO/FROM identifier option 136 
right parenthesi sO ) 

See parentheses 
ROUNDED option 

ADD statement 167 

description 164 

DIVIDE statement 170 

floating point considerations 164 

fractional exponents 171 

size error checking and 164 

SUBTRACT statement 168 
rout i ne-name 

definition 467 
routine, definition 467 
run unit 

definition , 300, 467 



S MODE record 

def i ni t i on 467 
S, PICTURE clause symbol 

charactei — string representation 80 

function of 75 
SAME clause 

description 49 

format 48 
SAME RECORD AREA clause 

description 49 

format 48 
SAME SORT/SORT-MERGE AREA clause 

description 238 
sample programs 

file processing 422 

sort/merge 248 

table handling 231 
SD entry 

format 238 

system dependencies 358 
SEARCH ALL statement 

ASCENDING/DESCENDING KEY 221 

compatibility extension 402 

format 227 

initializes index 217 
SEARCH statement 

classification, format 290 

binary search 229 

description and formats 226 

serial search 226, 227 
sect i on 

definition 467 

general description 104 
section header 

definition 467 

general description 104 

specification of 22 
secti on-name 

as a qualifier, rules 26 

definition 467 

general description 104 

in EXCEPTION/ERROR declarative 127 
SEEK statement 

compatibility extension 385 
SEGMENT phrase 330 
SEGMENT-LIMIT clause 

format 290 
segmentation feature 206 

ALTER statement 291 

CALL statement 307 

calling and called programs 292 

concepts 288 

control 289 

Environment Division 290 

logic 289 

PERFORM statement 205, 291 

Procedure Division 290 

SORT and MERGE statements 291 
SELECT clause 

description 43 
SELECT OPTIONAL clause 

CLOSE statement 157 

specification 43 
semi colon ( ; ) 

Configuration Section 32 

separator 18 

series connectives 15 
SEND statement 315, 331 
sending field 

MOVE statement 172 
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SET statement 225, 226 
. STRING statement 181 
I UNSTRING statement 186 
sentence 

categories of 108 

COBOL, definition 11 

definition ^67 

general description 104 
SEPARATE option of SIGN clause 87 
separate sign 

class condition and 111 
separator 

definition 12, 467 

detailed description 18 
sequence number area (cols. 1-6) 21 
sequential access 

definition 467 

DELETE statement 154 

READ statement 148, 150 

REWRITE statement 152, 153 

WRITE statement 145 
sequential f i le 

definition 467 

format 41 

general description 40 

organization 39 

required and optional entries 131 

REWRITE statement 152 

sample programs 422 
sequential organization 

definition 467 

description 39 

READ statement 150 
sequential processing, definition 467 
serial search 

definition 467 

end of search 228 
"^ evaluation 227 

format 226 

with two WHEN options 228 
series connective 15 
SET statement 

description and formats 224 

index data item values assigned 222 

initializes index 217 

TO option 224 

UP/DOWN BY option 226 
SIGN clause 87 
si gn condi ti on 

definition 468 

description and format 115 
SIGN IS SEPARATE clause 

CODE-SET clause and 62 
signed data categories 68 
signed numeric item 

INSPECT statement and 176 
simple condition 

combined 117 

definition 468 

description and types 111 

Negated 117 
simple insertion editing 82 
SIZE ERROR option 164 

DIVIDE statement 170 
SIZE-ERROR condition 

definition 164 
SKIPl/2/3 Statements 406 
slack bytes 88, 93 

definition 468 

interrecord 92 

intrarecord 89 
slash (/) 79, 82 

COBOL character 13 

comment lines 24 



compatibility extension 407 

PICTURE character-string 81 

PICTURE clause editing 82 

PICTURE symbol 76 
sort file 

concepts 235 

definition 468 

SORT-CORE-SIZE 247 

SORT-FILE-SIZE 247 

SORT-MODE-SIZE 247 
SORT statement 

ASCII considerations 411 

format 240 
SORT-CORE-SIZE special register 359 
SORT-MESSAGE special register 359 
SORT-RETURN, special register 359 
sort-work-file, definition 468 
Sort/Merge Feature 

ASCII considerations 411 

concepts 235 

differences and similarities 235 

environment division 236 

file-control entry 237 

format 237 

I-0-CONTROL paragraph format 237 

INPUT/OUTPUT PROCEDURE Control 245 

MERGE statement format 240 

procedure division 239 

programming notes 248 

RELEASE Statement format (Sort 
Statement Only) 245 

RERUN clause 238 

RETURN Statement format 246 

SAME SORT/SORT-MERGE AREA clause 238 

sample program 248 

SORT statement format 240 

SORT-RETURN 247 

special registers 247 

statement options 241 
Sort/Merge File Description (SD) entry 

data division 238 

def i ni t i on 468 

SD entry format 238 
Sort/Merge File statement options 

ASCENDING/DESCENDING KEY Option 241 

COLLATING SEQUENCE Option 242 

GIVING Option 243 

INPUT PROCEDURE Option for sort 244 

OUTPUT PROCEDURE Option 244 

USING Option 243 
sorted records 

segmentation considerations 291 
SOURCE clause 

report writing, use in 254 
source computer, definition 468 
source item, definition 468 
SOURCE LISTING FORMAT CONTROL, 

compatibility extension 406 
source program 

definition 468 

standard COBOL format and 21 
source program library 

COPY statement 293 

description 293 

extended source program library 297 

old language extension 408 

programming notes 297 

system dependencies 358 
SOURCE-COMPUTER paragraph 

description and format 33 
space character 

rules for using 18 
SPACE/SPACES figurative constant 

description 17 
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dQfinition 468 



288 



83 
395 



159 



special character 

definition 468 
special character Mordt 
special features 

Report Writer 251 

segmentation feature 

sort/merge 235 

table handling 212 
special insertion editing 
special registers 

compatibility extension 

CURRENT-DATE 395 

definition 468 

description of use 15 

LINAGE-COUNTER 62 

RETURN-CODE 358 

SORT-CORE-SIZE 359 

SORT-MESSAGE 359 

SORT-RETURN 359 

sort/merge 247 

system information transfer 

system, DAY/DATE/TIME 159 
special-character ujord, description 
SPECIAL-NAMES paragraph 

alphabet-name clause and 35 

combined function card 
processing 415 

condition-name defined 116 

DECIMAL POINT IS COMMA Clause 37 

definition 468 

description 34 

format for report writer 257 

f unct i on-name-1 34 

f unct i on-name-2 35 

old language extension 407 

system dependencies 358 
standard alignment rules 

See alignment rules 
standard COBOL format 

description 21-24 
standard data format 

definition 468 

description 67 
standard label processing 

OPEN statement execution 140 

VSAM sequential files 140 
STANDARD option, FD entry 59 
STANDARD-1 option 

ASCII-encoded file specification 

CODE-SET clause 62 
standards, COBOL iii 
START statement 

description and format 146 

INVALID KEY option 147 

START statement execution 

START statement positions 

status key considerations 

VSAM indexed files 147 

VSAM relative files 148 
statement 

ACCEPT MESSAGE COUNT 

categories of 105 

definition 468 

DISABLE 315, 327 

ENABLE 315, 326 

general description 



134 
check 



128 



16 



62 



136 
137 
147 



315, 328 



104 



RECEIVE 315, 320, 
SEND 315, 331 
statements flagged 
static values in a 
STATUS KEY clause 
status key values. 



329 



by MIGR option 
table 218 
322, 325 
VSAM files 135 



453 



214 



304 



definition 468 



status key, file processing 

common processing facility 

EXCEPTION/ERROR procedures 

WRITE statement 142 
STOP RUN statement 

description and format 207 

system dependencies 361 
STOP statement 

description and format 207 
storage layout of table, example 
STRING statement 

example 183 

execution 181 

format 181 

programming notes 185 
stroke 12, 76 

structure of COBOL language 12 
SUB-QUEUE clause 

description 320 
subject of entry, definition 468 
subprogram 

definition 468 
subprogram linkage 

concepts 300 

Data Division 303 

examples 310 

Procedure Division 
subscri pt 

definition 468 

description 215 
subscripted data-name, 
subscri pting 

definition and format 215 

MOVE statement evaluation 172 

restrictions for qualifiers 27 

UNSTRING statement evaluation 188 
substitution field of INSPECT 

REPLACING 178 
SUBTRACT statement 

common options 163 

CORRESPONDING option 163 

formats 167 
SUM clause 

report writing, use in 254 
SUM counter 

definition 469 
summary reporting 

description 256 
SUPPRESS option, COPY 294 
suppression and replacement editing 82 
switch-status condition 

definition 469 

description and format 116 
SYMBOLIC DESTINATION clause 326 
SYMBOLIC QUEUE clause 

description 320 
symbolic source 313, 321 
SYMBOLIC SOURCE clause 321 
SYNCHRONIZED clause 88 
system considerations, subprogram 
1 i nkage 

CALL statement 302 
system dependencies 

description 354 

RETURN-CODE 358 
system information transfer, ACCEPT 

statement 159 
system input device, ACCEPT 

statement 159 
system-name 

definition 469 

description 14 
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results 230 
compati bi li ty 



statement 178 



table element, definition 212» 469 
table handling 

Data Division 219 

defining a table 212 

description 212 

initializing table values 218 

referring to a table element 214 

sample program 231 

table layout, example 214 
table references 

indexing 216 

restrictions 217 

SEARCH ALL statement 

subscripting 215 
table, definition 212, 
TALLY special register, 

extension 395 
tallying field in INSPECT 
TALLYING option 

INSPECT statement 178 

UNSTRING statement 187 
TERMINATE statement 

report writing, use in 256 
termination of execution 

system dependencies 361 
TEXT LENGTH clause 321, 325 
text-name 

COPY statement 293 

definition 469 
text-word, definition 469 
TIME special register 159 
TIME-OF-DAY special register 395 
TIMES option of PERFORM statement 
TO option 

SET statement 224 

TRANSFORM statement 192 
TRACK-AREA Clause, compatibility 

extension 367 
trailei — label, definition 469 
TRAILING option of SIGN clause 

TRANSFORM statement 192 
transfer of control 

explicit and implicit 27 
transfer of data 

MOVE statement 172 

STRING statement 181 
TRANSFORM statement 

examples 193 

format 192 

FROM and TO options 194 

programming notes 193 
truncation of data 

elementary moves 173 

ROUNDED option 164 
truth value 

complex conditions 116 

condition statements specify 121 

definition 469 

IF statement 121 

sign condition 116 
TSO, dependent features 4 
TYPE clause 

format for use in report writer 267 



200 



unary arithmetic operators 109 
unary operator 

definition 469 
unconditional GO TO statement 195 
UNIT option, CLOSE statement 156 
uni t record f i le 

def i ni ti on 156 
unit, definition 46 9 
UNSTRING statement 

data receiving fields 186 

example 190 

execution 187 

format 185 

sending field 186 
UPON option, DISPLAY 161 
UPSI-0 through UPSI-7, program switches 

and switch-status condition 116 

definition 46 9 
USAGE clause 94 

floating point items, compatibility 
extension 396 
USAGE DISPLAY 

class condition identifier 111 

STRING statement and 181 
USAGE IS INDEX 

compatibility extension 402 

description and format 222 
USE AFTER EXCEPTION/ERROR sentence 

in Declarative section 126 
USE BEFORE REPORTING sentence 

in Declarative section 126 

report writing, use in 256 
USE FOR DEBUGGING Declarative 

for Communication Feature 336 
usei — defined word 

definition 46 9 

detailed description 14 

formation rules 14 
usei — defined word, list 14 
usei — defined words 6 
USING option, SORT/MERGE statements 

description 243 
USING option, subprogram linkage 

EXEC statement FARM field 361 

format 305 

linkage section 303 

subprogram linkage 305 

system dependencies 361 



V, PICTURE clause symbol 

charactei — string representation 80 

funtion of 76 
VALUE clause 97 

compatibility extension 398 
VALUE OF clause, as documentation 60 
variable length tables 219 
variable, definition 469 
VARYING option 

PERFORM statement 200 

SEAJ?CH statement 228 
verb 

definition 469 

profiles, compiler feature 3 
Verb prof i les 3 
vertical spacing 
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Volume Switch Procedure 




definition 46 9 




volume* definition 469 




VSAM indexed files 




access modes allowed 41 




CLOSE statement 157 




description 40 




file description entry 


57 


OPEN statement options 


140 


READ statement 150 




READ statement, format 2 


151 


required and optional en 


tri es 


REWRITE statement 153 




START statement 147 




VSAM relative files 




access modes allowed 41 




CLOSE statement 157 




OPEN statement options 


141 


organization 40 




PASSWORD clause in OPEN 




statement 141 




required and optional en 


tri es 


REWRITE statement 153 




START statement 148 




WRITE statement 145 
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CLOSE statement 157 




description 39 




OPEN statement options 


140 


PASSWORD clause valid wi 


th 45 


WRITE statement 144 




VSAM, definition 469 
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141 



132 



AFTER POSITIONING option 386 
ALTERNATE RECORD KEY 144 
combined function card 

processing 416 
compatibility extension 
description and format 
END-OF-PAGE option 143 
INTO/FROM identifier option 
INVALID KEY option 145 
physical sequential file options 
RELATIVE KEY 145 
system dependencies 357 
VSAM files 144 
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X, PICTURE clause symbol 

charactei — string representation 
function of 76 



79 
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WHEN opti 
WHEN opti 
WHEN-COMP 
WITH DEBU 
WITH FOOT 
descri 
WITH NO R 
statemen 
word 

def i ni 
detai 1 
reserv 
Worki ng-S 
def i ni 
format 
genera 
WRITE sta 
ADVANC 



on, SEARCH ALL statement 230 

on, SEARCH statement 228 

ILED special register 359 

GGING MODE clause 335 

ING option of LINAGE clause 

ption 60 

EWIND option, CLOSE 

t 156 

tion 469 

ed description 13 
ed word 15 
torage Section 
tion 469 

53 
1 description 54 
tement 
ING option 142 



Z, PICTURE clause symbol 

charactei — string representation 79 

function of 76 

zero suppress and replacement 
editing 86 
zero filling 

elementary moves 173 
zero suppression and replacement 

editing 86 
ZERO, ZEROES, ZEROS figurative constant 

description 17 

permissible moves 174 

reserved word 17 

TRANSFORM statement, in 192 
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0, PICTURE symbol 79 

0, simple insertion editing 
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9, PICTURE symbol 79 
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